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EDITORIAL 


Bien que notre réunion anniversaire soit programmée fin Janvier (pour permettre à tous les 
participants de la réunion anniversaire de HPCC à Londres de récupérer), ce mois de décembre 1992 
marque réellement le dixième aniversaire de PPC Paris. En effet, notre association a vu son existence 
débuter officiellement le 2 décembre 1982. Dans ces temps là, la HP-41 règnait en maître dans le 
petit monde des utilisateurs de calculateurs HP. Ensuite, Hewlett-Packard commercialisa de 
nouvelles machines, dont certaines, portant les doux numéros de 71 ou 28 contribuèrent à perpétuer 
une tradition tournée vers l'innovation, au grand plaisir de nombreux utilisateurs ne jurant plus que 
pour la firme aux deux lettres. Pendant ce temps, la HP41 atteignait tranquillement ses dix ans de 
production ininterrompue, ce qui restera peut-être longtemps le record absolu. Depuis, deux 
nouvelles machines, les HP48 et HP95, se disputent le marché, et les nouveaux utilisateurs rejoignent 
les rangs des passionnés de longue date. 


Pendant ce temps, PPC Paris connaissait un succès grandissant, recrutant ses membres aussi bien 
dans les milieux étudiants que chez les professionnels de tous les domaines, habitant aussi bien le 
centre de Paris que la banlieue d’une ville située au centre de l'Argentine. Grace à cette association 
de passionnés, de nombreux adhérents ont appris à mieux se servir de leur machine, puis ont 
redistribué leurs connaissances aux autres membres. Ceci a permis au club, par exemple, d'occuper le 
premier rang mondial dans le domaine de l’assembleur Saturn, sur HP-71. 


Cependant, comme beaucoup d’autres clubs, PPC Paris a rencontré une période noire, mais, là où 
des clubs apparement plus solides ont échoué, notre club a su traverser cette épreuve et en est sorti 
peut être quelque peu affaibli, mais toujours vivant. 


Aujourd’hui, après s’être regroupé autour d’un groupe de fidèles (la moitié des adhérents actuels 
appartiennent au club depuis plus de 5 ans), PPC Paris a repris un rythme croissant de nouveaux 
arrivants et peut donc voir l'avenir sous un meilleur jour. Cependant, pour retrouver un club aussi 
grand et puissant que par le passé, il est nécessaire que les membres reprennent l’habitude de 
communiquer leurs expériences et leurs programmes. Pour cela, il n'existe qu’un seul moyen 
universel de communication entre les adhérents : JPC. Que vous soyez débutant ou spécialiste, que 
vous soyez prêts à faire des articles de 10 pages, ou n’avez le temps que de faire des petites 
contributions de 40 lignes, n’ayez pas peur. Aucun membre n’a jamais ri d’un article d’un autre 
adhérent, quelque soit les différences de niveaux entre ces deux personnes, car il a toujours su qu’il y 
aurait toujours d’autres adhérents pour qui cet article serait parfaitement adapté. JPC est la vitrine du 
club. Notre travail est de la faire briller, mais c’est surtout à vous de la remplir, afin que des passants 
regardant au travers aient envie d’y entrer et y restent jusqu’à notre vingtième anniversaire. 


En attendant de nous retrouver, dans le prochain JPC ou à notre réunion anniversaire, nous vous 
souhaitons un joyeux Noël et une nouvelle année pleine de beaux petits programmes ! 


Le bureau. 
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ILS ONT FAIT PPC PARIS 


Directement ou indirectement, de nombreuses 
personnes et sociétés ont collaboré avec notre club ou 
ont contribué a son histoire. Je vais donc tenter, au 
nom du bureau actuel, de tous les remercier. Si par le 
plus grand des hazards javais oublié de citer 
quelqu'un, qu’il me le pardonne. Attachez vos 
ceintures, c’est parti ! 


- En premier lieu, Richard Nelson, qui a créé le 
premier club PPC (aux USA) et Phillipe Guez, qui a 
créé PPC Paris. 


- Thomas Affinito, Yves Alajouanine, Robert Amram, 
Lionel Ancelet, Pierre Antoine, Asdin Aoufñ, Olivier 
Arbey, Philippe Aspéro, Robert Atlan, Jean-Louis 
Attenoux, Luzius Auer, Christian Bachelet, Christian 
Bacquet, Jean-Marc Baillard, Wolfgang Baltes, 
Stéphane Barizien, Frédéric Barnaud, Jean-Paul 
Barre, Pierre Bassaler, Jacques Baudier, Jean-Claude 
Becker, Mario Benedetti, Thierry Besancon, Mathieu 
Besson, Xavier Bille, Alain Bochet, Alexandre 
Boldireff, Jean-Pierre Bondu, Jurgen N. E. Bos, Jean 
Boschat, Thierry Bravier, Alexandre Buchmann, Jan 
Buitenhuis, Philippe Canuel, Denis Castelain, Roger 
Charpentier, Ronic Chiche, Laurent Chouraki, 
Michel Clabot, Pierre-Jérome Clémenceau, Pierre 
Colignon, Daniel Connan, Paul Courbis, Mark 
Cracknell, David Dalila, Olivier Dancer, Philippe 
Davase, Pierre David, Damien Debril, Eric Delagnes, 
Jérome Devémy, Jean-Jacques Dhenin, René Dine, 
Jean-Daniel Dodin, Yann Dolhen, Claude Dupré, 
Jacques Durand, François Duret-Lamouroux, Peter 
Ehrenberg, Jack Elhay, Henrick Elnaes, Alain Farge, 
Gigi Filippini, Craig Finseth, Jean-Claude Foures, 
Francis Friesse, Olle Galmo, Jean-Francois Garnier, 
Eric Gengoux, Gabriel Gil, Bruno Gil, Alain Gillet, 
Frédéric Gobin, Christophe Gottheimer, Alain 
Goubault de Brugière, Laurent Grand, Philippe 
Guez, Lionel Guillou, Tony Guilloux, Franck Guy, 
Phillipe Heïlbronn, Vincent Herlicq, Alain 
Herreman, Jean-Yves Hervé, Hewlett-Packard, J. 
Hulaas, Laurent Istria, Daniel Jacob, Ulrich Jansen, 
Christian Jegouzot, Didier Jehl, Laurent Jolia-Ferrier, 
Jean-Michel Kefaloucos, Franklin  Khazine, 
Dang-Trung Khoi-Nguyen, Volker Klann, Christoph 
Klug, Gérard Kossmann, Henri  Kudelski, 
Jean-Claude Kursner, Sébastien Lalande, Pierre 
Langlois, Roger Le Bris, Francois Le Grand, 
Guillaume Le Stum, Franck Lebastard, Christopher 
Lishka, Arne Lührs, Jean Maille, Gérard Mangeney, 
Claude Marcoin, Michael Markov, Nicolas Martin, 
Jean Martinelli, Michel Martinet, Michel Martinet, 
Michel Maupoux, Wlodeck  Mier-Jedrzejowicz, 
Lucien Monet, Morando, Jean-Jacques Moreau, 


Bernard Morisseau, Christian Morlot, Jean-Paul 
Nalin, Jean-Yves Naour, Richard Nelson, Philippe 
Nicodème, Daniel Odos, André Oisel, René Ouvray, 
Jean-François Pelanne, R. Pennetier, Steen Petersen, 
Stefano Piccardi, Pierre Picheret, Aimé Pierrard, 
Olivier Pilloud, Michel Polski, B. Pons, Olivier 
Pougeon, Etienne Poupée, Frédéric Poupon, Robert 
Pulluard, Jean Reibel, Philippe Romascano, Francis 
Rosange, A. Rosset, Aurel Rottman, Yann Rousse, 
Daniel Saada, Jean-Pierre Sandoz, Robert Schwartz, 
Jake Schwartz, Laurent Serano, Megha Shyam, 
Jean-Marie Simon, Franck Stengel, Jannick 
Taillandier, Dominique Talon, Tapani Tarvainen, 
Philippe Tenand, Stefano Tendon, Hervé Thévenon, 
Lewis Thomas, Gilbert Tisserand, Guy Toublanc, 
Jean-Pierre Toyre, Bruno Tredez, Frédéric Vadez, 
Christophe Vaillant, Ludovic Valois, Fred Van Der 
Windt, Jacques Vaucelle, Serge Vaudenay, Frank 
Wales, Brian Walsh, Michel Weil, Franck Wettstein, 
William Wickes, Bertil Wicklund et Raan Young qui 
ont fait publier au moins un article dans les 3578 
pages de notre journal ! 


- Lionel Ancelet, Olivier Arbey, Jacques Baudier, 
Xavier Bille, Jean-Claude Becker, Laurent Chouraki, 
Pierre David, Vincent Delorme, Jean-Jacques 
Dhenin, Pierre Franck, Eric Gengoux, Philippe Guez, 
Laurent Istria, Daniel Jacob, Michel Martinet, Jean 
Reïbel, Aurel Rottmann et Jannick Taillandier qui, 
par leur participation aux différents bureaux, ont 
souvent dû faire un nombre incalculables d'heures 
supplémentaires, afin de faire fonctionner le club et 
mettre le journal en pages ! 


- Les clubs Français et étrangers : PPC Toulouse, 
PPC Lausanne, PPC Danemark, PPC Australie, PPC 
Norvège, HPCC, Prompt HP-GC, PCX Brugge, 
HPX, CCD et STaK, qui nous ont très souvent servi 
d’exemple. 


- Les familles des personnes précédement citées, qui 
ont souvent dû supporter une passion dévorante ! 


- Les sociétés Fogebur, Mistral Photo, Copy Express 
et Paris Copie qui ont souvent dû imprimer nos JPC 
dans des delais records ! 


- La (regrettée) Règle à Calcul, Maubert Electronic, 
Compta France et EduCALC qui ont souvent permis 
à nos adhérents, grace aux réductions, de 
s’approvisionner en matériel à moindre frais ! 


- Les sociétés Zengrange, W&W Software, Eramco, 
WM Products, Krystal, CMT, TDS, Sparcom, TDS, 
ACE… qui ont fait d’excellents modules ou 
périphériques, alors que Hewlett-Packard avait la tête 
ailleurs ! 














- William Wickes, Keith Jarett, Jim Donnelly, Richard 


Arvey, Jean-Michel Ferrard, Paul Courbis et 
Sébastien Lalande qui nous ont écrit des livres 
faisant maintenant figure de référence ! 


- Les développeurs de Corvallis, qui nous ont créé nos 
HP-41, HP-71, HP-28, HP48, HP95 et autres, avec 
une pensée particulière au programmeur anonyme 
qui a laissé passer une cartaine bogue dans la Rom de 
la HP-41, nous laissant ainsi découvrir la 
programmation synthétique qui a été la cause 
principale de l’éclosion des clubs HP dans le monde ! 


- Nos contacts chez HP France : Philippe Chaillot, 
Robert Bayle, Eric Clément et Michel Maupoux avec 
qui nous avions d’excellents contacts et maintenant 
Jean-Paul Barnier, Corrine Brizard et Michel Serge 
avec qui nous espérons que la collaboration sera 
encore meilleure. 


Et enfin, ceux sans qui rien de tout cela n'aurait 
existé : William Hewlett et David Packard ! 


Jacques Belin (123) 





BIENTOT, LA REUNION 


Ce petit article a pour but de vous donner quelques 
informations complémentaires sur notre réunion 
exceptionnelle des 30 et 31 Janvier. 


Tout d’abord, il est fort probable qu’au cours de notre 
assemblée générale, nous fassions un appel pour 
remplacer un ou plusieurs membres du bureau. Si le 
travail en lui même n’est ni important ni compliqué, il 
est nécessaire que les candidats habitent la région 
parisienne afin que nous puissions assurer un contact 
direct (ne serait-ce que pour nous transmettre 
rapidement certains documents) quand cela est 
nécessaire, Si vous êtes volontaires, contactez moi 
avant l'assemblée. 


En ce qui concerne les prix du tournoi de 
programmes, sachez que le premier prix sera un 
HP95LX (version 1 Méga Octets), offert par HP 
France (merci Jean-Paul Barnier !). Les prix suivants 
seront déterminés après le tournoi, car il s’agira 
généralement de périphériques dédiés à une machine 
précise (cartes mémoires). En effet, il serait 
regrettable de donner une carte HP48 à un utilisateur 


de HP95 ! Nous sommes en négociation avec 
quelques sociétés pouvant nous offrir ces prix, mais 
sachez déjà que Maubert Electronic et Palmsoft nous 
ont déjà promis de participer ! 


Un IBM PC devrait être disponible en libre service. 
Vous trouverez dans son disque dur de nombreux 
programmes du domaine public pour les HP48 et 
HP95, ainsi que ceux qui sont parus dans les JPC. 
Bien sûr, vous serez tout à fait autorisés à ajouter de 
nouveaux programmes sur le disque dur, afin d’en 
faire profiter les autres ! 


Wanted ! 


Nous comptons organiser, entre autres, exposition de 
tous les calculateurs fabriqués par HP ainsi que leurs 
périphériques (fabriqués par HP ou non) par HP. 
Nous avons déjà réuni de nombreux, mais certains 
modèles ou variantes nous manquent encore. En voici 
la liste (attention, les lettres sont significatives) : 


01 (montre calculatrice), 01 GOLD, 10B, 10C, 11C, 
14B, 17B, 17BII, 18C, 19B, 19BII, 208$, 215, 22, 25C, 
275, 28C, 285, 28COM, 29C, 325, 32SII, 33C, 37E, 
37C, 38E, 41 OPT 001 (HP41 sans marquage de 
touches), 46, 48S, 81, 83, 91, 92, 94, 95C, 97. 


Pour les périphériques HP : 


Interface vidéo 82163, Interface GPIO 82165, 
Interface HPIB 82169, MODEM acoustique 82168, 
Interface RS-232C 82164, module 82211A... Ainsi 
que tous modules ou périphériques HP-41, HP-71, 
HP-48 et HP-95 fabriqués par HP et les autres 
sociétés (CMT, SPARCOM...). 


Si vous avez un de ces éléments, contactez nous 
(même si vous ne pouvez pas venir à la réunion). 
Rassurez vous, nous vous rendrons ces éléments dès 
la fin de la réunion. Rappelez vous que notre but est 
de tenter de montrer l'exposition la plus complète 
possible. 


Il est à noter à cette occasion que la société Compta 
France, par l'intermédiaire de Lionel Bardano, nous a 
offert récement quelques calculateurs : HP 33E, 22, 
55, 65 et 35 ! Si deux exemplaires (33 et 55) sont des 
modèles d’exposition (sans électronique interne), les 
HP-22 et HP-35 ne demandent que des 
accumulateurs bien chargés pour fonctionner ! Que 
Compta France en soit remercié et espérons que cela 
ne soit que le début d’une grande collection ! 


N'attendez pas pour vous inscrire, car nous devons 
absolument avoir une estimation assez précise du 
nombre de personnes présentes, afin de ne pas avoir 
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de mauvaises surprises (dues à un trop grand nombre 
de participants non inscrits) au dernier moment ! 


Le programme de ces deux jours, ainsi que les noms 
des presonalités présentes devrait être envoyé 
prochainement aux adhérents (probablement avec la 
convocation à l'assemblée générale) et à ceux qui se 
seront inscrits. 


Jacques Belin (123) 


DOMPTEZ VOS VIRUS 


Certaines personnes désirent participer à notre 
tournoi de programmes, mais hésitent encore, car 
elles pensent que ce genre de programmes est trop au 
dessus de leur niveau de programmation. Cet article a 
pour but de leur donner quelques conseils pour 
débuter leur analyse du programme. Ne le prenez 
cependant pas comme étant une référence absolue 
car, d’une part, si vous désirez gagner vous devrez 
échafauder votre propre tactique, et d’autre part, je 
mai tout simplement pas eu le temps de réellement 
travailler sur une analyse vraiment complète ! 


De toute façon, le seul but de cet article est de vous 
encourager à participer et non de vous en dissuader ! 


Conseils généraux 


Tout d’abord, nous savons que ce jeu est relativement 
difficile à programmer. En fait, je le situe à 
mi-chemin entre Othello et le Go. Cependant, n’ayez 
pas peur que votre programme soit d’un trop faible 
niveau, tous les autres le seront aussi. Ceci est 
compréhensible, car le jeu étant totalement inédit et 
connu relativement peu de temps avant le concours, 
je suis prêt à parier ma place à la présidence du Club 
qu'aucun programme ne sera encore capable de 
vaincre un adversaire humain ! Il faudra peut-être de 
nombreux mois avant de voir des programmes 
réellement compétitifs. Cela n’a aucune importance, 
car le but du concours n’est que d’opposer des 
programmes entre eux sur un même sujet, même si ils 
sont d’un niveau très inférieur à un joueur humain. 
En fait, un programme qui vous semblera très moyen 
et dont les coups vous semblerons trop prévisibles 
pourra très bien mettre les autres en déroute, en 
utilisant un "petit quelque chose" que les autres 
n’auront pas, et arriver en premier ! 


Tout programme ne s’écrivant pas sans une bonne 
analyse préalable, je vous conseille impérativement de 
respecter les étapes suivantes, dans l’ordre et sans 
brûler les étapes : 


1-Jouez au maximum contre plusieurs adversaires 
humains (si par hasard vous vous ennuyez pendant le 
réveillon...). Ceci vous permettra de trouver les 
tactiques de jeu pouvant être intéressantes, ainsi que 
les pièges à éviter ! 


2-Analysez le programme. Choisissez dans les 
tactiques que vous avez trouvé celles qui peuvent être 
le plus facilement formulées sous forme 
d’algorithmes, puis déterminez la façon dont seront 
codées les données et les fonctions de bases du 
programme en accord avec ces algorithmes. 


3-Une fois que vous connaitrez précisement la 
structure du programme, vous pourrez alors 
commencer à programmer. 


4-Testez votre programme aussi bien en jouant 
directement contre lui qu’en le faisant jouer contre 
d’autres adversaires humains ou des programmes. 
Ceci vous permettra de voir si il existe des failles 
grossières dans vos algorithmes, failles que vous 
pouvez très bien laisser passer si vous restez seul. 


Ne perdez pas de temps à faire un programme avec 
une superbe présentation graphique. Cela n’est pas le 
but du jeu. Dans l'absolu, un simple échange de 
coordonées sans affichage du plateau de jeu suffirait, 
mais il est cependant conseillé de l'afficher, au moins 
en mode texte, afin de vérifier que tout se passe bien : 


Bates + Temps de reflexion : 
7T..Xo.xx. 00:03:59 
6..000... 

55 3 sur Ka Mon coup : 
&...xxo.. C7 (Virus) 

Be Re à 

CRETE EE + Votre coup : 


Tactiques en vrac 


Le but de cette partie est de vous donner quelques 
indications de tactiques qui peuvent être intéressantes 
d'utiliser. Evidement, dans votre intérêt, il vous 
faudra ajouter vos propres idées, car si tous les 
programmes n’utilisent que ce qui est marqué 
ci-dessous, le tournoi risque de manquer d'interêt ! 
D'autre part, ces conseils ne doivent pas être pris 
comme une règle absolue, car, comme tout nouveau 
jeu, les meilleures tactiques sont encore à trouver et 














risquent fort de contredire mes 


conclusions. 


premières 


- Choisissez une tactique de jeu offensive, car un 
joueur qui ne tenterait que de regrouper ses pions, 
sans tuer des bactéries adverses et en empêchant 
l'autre de tuer ses bactéries ne ferait, au mieux, 
qu'une partie nulle. N'oubliez pas qu'en cas 
d’ex-aequo, ce sera le programme qui aura gagné 
avec les plus grandes différences de pions qui 
remportera le tournoi. 


- Tentez d’occuper la partie centrale du plateau de 
jeu, puis étendez vous dans toutes les directions. 


- En contrepartie, si vous êtes dans une position de 
déséquilibre, avec seulement quelques pions placés 
sur un côté du plateau, il est indispensable d'ouvrir un 
deuxième front de lautre côté du plateau, en y 
placant un Virus. 


- Ne placez pas vos Virus trop tôt, car vous perdrez la 
possibilité de contrôler le jeu plus tard. 


- Ne les placez pas non plus trop tard, car, à ce 
moment vous n’aurez peut-être plus une zone libre 
suffisante pour développer une colonie de bactéries. 


- En fait, il vaut mieux les placer une fois que 
l'adversaire a déjà placé ses Virus, car à ce moment là 
nous savons que l'adversaire ne peut plus ouvrir de 
nouveau front. Cependant, pour le concours, faites 
attention aux programmes qui penseront que vous 
utiliserez cette règle, et ne joueront pas leurs Virus 
dans le seul but de vous bloquer ! 


- Placez vos Virus sur des cases défavorables à des 
bactéries normales (par exemple, des cases déjà 
entourées d’au moins trois bactéries adverses). 


- Détectez les bactéries adverses ne cotoyant qu’une 
seule bactérie de sa couleur, puis regardez si cette 
dernière est en danger (entourée de trois bactéries de 
votre couleur). C’est celle là qu’il faut tuer, 
puisqu’elle rendra la première citée isolée, donc non 
viable ! En poussant un peu plus loin le raisonnement 
et en tentant de savoir si plusieurs bactéries sont 
dépendandes d’une ou deux bactéries, on peut 
s’apercevoir que bien placée, une seule bactérie peut 
faire des ravages, en tuant cinq ou six (peut être 
plus !) bactéries adverses ! Par exemple : 

nl 
QE 
©|e 
Je 



































1) Position Initiale 2) Blanc place 


La bactérie ’0' 





1) Les bactéries ‘X', 
entourées de 4 bactéries, 
sont tuées 


2) Les bactéries ‘Y', 
isolées, 
sont aussi tuées 





1) Configuration 
finale ! 


Une fois que les Virus adverses auront été placés, 
plutôt que de placer ses bactéries de façon compacte, 
il est conseillé de tenter de créer une zone libre 
autour d’un coin du plateau, limitée par deux lignes 
droites à 90 degrés. Par exemple, la configuration 
suivante : 














permettra au joueur blanc de se réserver au moins 12 
pions en fin de partie, en remplissant la zone vide qui 
ne peut plus être occupée par une bactérie adverse, 
puisque tous les Virus ont été joués. Il faut cependant 
protéger la bactérie placée à l'intesection des deux 
lignes, car si il est impossible de tuer une bactérie 
faisant partie d’une ligne droite (car, à moins de 
placer une bactérie de l'autre côté de cette ligne, il ne 
peut pas y avoir plus de trois bactéries adverses 
autour d’une bactérie), il est toujours possible de tuer 
celle qui fait l'intersection, ce qui peut permettre à 
d’autres bactéries de s’incruster dans la brêche. 


Formulation du programme 


Cette section contient des indications destinées à ceux 
qui n’ont jamais programmé ce genre de problème. 
Cependant, ne vous attendez pas à un cours 
d'intelligence artificielle, car je n’ai ni le temps, ni 
lexpérience nécessaire pour faire ce genre d’article. 
De plus, étant donné que la diversité des machines et 
languages pouvant être utilisés dans le tournoi, ces 
indications ne peuvent pas être trop précises. Ce sera 
donc à vous de définir en détail l’organisation de 
votre programme. 
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Formulation des données 


Le plateau de jeu peut être modélisé par un simple 
tableau 8x8, contenant les différents pions posés par 
les joueurs, suivant une représentation telle que celle 
ci: 


- Case vide : 0 

- Case occupée par une bactérie de votre couleur : 1 
- Case occupée par un virus de votre couleur : 2 

- Case occupée par une bactérie adverse : -1 

- Case occupée par un virus adverse : -2 


Le fait de donner des valeurs négatives au pions 
adverses permet de simplifier les tests d’occupations 
de cases en exécutant des tests par rapport à zéro 
(égal, supérieur ou inférieur), qui sont souvent plus 
rapides que des tests sur une constante définie. 


Créez une fonction de base ayant pour entrée les 
coordonnées d’une case précise et qui retourne 
globalement le type de bactérie placée sur cette case 
et le nombre de bactéries de chaque couleur 
entourant cette case. Si vous travaillez en langage 
utilisateur, cette valeur peut être, par exemple, de la 
forme P.ja où P est le type de pion occupant la case (0 
si la case est vide), j le nombre de pions de votre 
couleur entourant cette case et a le nombre de pions 
adverse. Cette fonction vous permettra donc de 
dégrossir le travail en vous donnant les cases où vous 
ne pouvez pas jouer (soit parce qu’il y a trop de pions 
adverses autour, soit parce qu’il n’y a pas de pion de 
votre couleur à coté), ainsi que les cases occupées par 
un pion de l’un ou l’autre joueur et qui sont en danger 
(entourées de 3 pions), par exemple. 


Faites attention, en écrivant cette fonction, de ne pas 
chercher à lire une case qui serait en dehors du 
plateau de jeu ! 


Si vous en avez la possibilité, écrivez cette fonction en 
assembleur, car c’est celle qui sera la plus fréquement 
utilisée, donc celle qui prendra le plus de temps au 
cours de l'analyse. 


Début de la partie 


Le règlement du tournoi interdisant les algorithmes 
possédant des routines aléatoires, le programme 
devra déterminer lui-même la position de départ. 


Il n’y a pas de problème de programmation pour le 
joueur noir, qui commence toujours, car vous pourrez 
coder directement dans le programme le coup 
(composé de la pose de 3 bactéries) que vous 
semblera le plus approprié, car vous l'aurez 
déterminé au cours des parties que vous aurez joué. 


a ——————————— 


En ce qui concerne le coup suivant (le joueur Blanc 
pose 3 bactéries), je pense qu’il est beaucoup plus 
simple de passer par une petite bibliothèque 
d'ouverture. En effet, une petite analyse m'a montré 
qu’il n’y a que 84 façons (à moins que je ne me sois 
trompé) , pour le joueur noir, de placer ses bactéries 
en respectant les règles de vie du jeu Virus. Ceci veut 
dire que vous pouvez réduire le nombre de possiblités 
du joueur Blanc à 84 coups en créant un tableau 
comportant une combinaison de pions blancs pour 
chaque coup possible du joueur noir. Par exemple : 


Coup Noir Réponse de Blanc 
D6-E6-c5 F4-D4-E5 
D6-E6-D5 c5-cu-D4 
D6-E6-E5 F5-E4-F4 
Bien sûr, vous devrez vous même créer cette 


bibliothèque, en choisissant la réponse qui vous 
semblera la plus appropriée pour chaque 
combinaison du joueur Noir. Rassurez vous, compte 
tenu des symétries, il n’y a (apparement) que 12 cas 
différents. 












































Faites cependant très attention à certaines 
combinaisons, qui peuvent vous être fatales. Par 
exemple : 
4 Lit 
+ 
e ®e|e|© 
e eo 
© EL 
HET 
2) Blanc Continue... 
ele 
® e 
= 
+ 














4) Résultat… 

(Blanc sera contraint de 
jouer un Virus, puisque 
il n’a plus de bactérie 

vivante !) 


3) Noir Joue en ‘’o’ 


L’interêt principal de cette bibliothèque d’ouverture 
est que le temps de réflexion pour le premier coup du 
joueur blanc est quasiment nul, puisque il peut se 
résumer à une simple recherche dans un tableau de 
84 entrées, alors que si il avait fallu recourir à un 
algorithme spécifique, le problème aurait été 
beaucoup plus compliqué (recherche de toutes les 
combinaisons de 3 pions blancs compatibles avec les 











Règles de vie, puis choix de la meilleure combinaison 
parmi celles-ci !). 


Analyse des coups 


La première étape de l'analyse consistera à compléter 
chaque case du tableau avec le résultat de la fonction 
que nous avons créé. Ceci permettra de simplifier la 
suite de l’analyse. Afin de diminuer le temps de 
réflexion, il peut même être possible de ne remettre à 
jour que les zones voisines des pions venant d’être 
joués. 


Ensuite, vous tenterez de trouver, par exemple, pour 
chaque pion adverse entouré de 3 pions de votre 
couleur si il y a une case vide autour de lui. Si cette 
case est jouable pour vous, c’est une bonne occasion 
pour tuer une bactérie ennemie ! Vous pouvez bien 
sûr procéder de la même façon pour protéger vos 
propres pions. 


Quel que soit le type d’analyse que vous ferez, le 
principe général sera de donner une certaine note à 
chaque coup possible. Une fois que vous aurez 
examiné toutes les possibilités, vous pourrez jouer la 
coup ayant la meilleure note. 


Pour attribuer cette note, vous pourrez par exemple, 
décider d’un barème, par exemple en donnant 500 
points à un coup tuant une bactérie adverse, 5000 
points à un coup tuant trois ou quatre bactéries, 100 
points à un coup normal, -1000 points à un coup 
plaçant une bactérie sur une case entourée de trois 
bactéries adverses. Etant donné que chaque case 
peut présenter plusieurs de ces caractéristiques, une 
simple addition (ou une multiplication de coefficients 
correspondants) vous donnera la note recherchée. En 
ce qui concerne les case vides ou non jouables, une 
note minimum (-100000 par exemple) sera appliquée. 


Contrairement à certains jeux (Othello, par exemple) 
il ne semble pas qu’il y ait de notion de cases "faibles" 
ou "fortes" (les coins, par exemples). Cependant, si 
vous désirez favoriser le placement des pions vers le 
centre du plateau, vous pouvez, par exemple, 
attribuer un coefficient multiplicateur de 2 aux cases 
centrales, 1.5 aux case suivantes et 1 aux cases 
formant la bordure du plateau. 


Mise en jeu des Virus 


Les Virus pouvant être joués n'importe quand et sur 
n'importe quelle case libre, mais étant présents en 
nombre limité, il est nécessaire de leur appliquer un 
traitement particulier. 


D — ———— 


Vous pouvez, par exemple, décider de opportunité 
de jouer un Virus si trop de pions de votre couleur 
sont placés dans une zone correspondant à un quart 
du plateau. Ceci peut être fait en comptant le nombre 
de vos pions dans chacun des quatre secteurs du 
plateau, puis en comparant ces nombres et jouer un 
virus si vous trouvez une différence dépassant un 
certain seuil. 


Vous pouvez aussi décider, plus simplement, de jouer 
deux virus entre (par exemple) le 20eme et le 30eme 
coup, et conserver le dernier pour casser une zone 
trop protégée par le joueur adverse. 


Prise des pions 


La méthode la plus simple (et la plus sûre) pour 
effectuer la prise des pions est d’écrire une routine 
procédant en deux passes, après que le nouveau pion 
ait été posé : 

1-Balayage de toutes les cases et élimination de 
toutes les bactéries (hormis les Virus) entourées de 4 
pions d’une même couleur. 

2-Nouveau balayage de toutes les cases et 
élimination des bactéries (toujours hormis les Virus) 
ayant été rendues isolées par l'élimination des 
bactéries précédentes. 

A priori, cette routine est indépendante de la couleur 
des pions du joueur qui vient de jouer, et peut tout 
simplement utiliser la fonction que jai décrit 
précédement. 


Annoncez le coup joué avant d'effectuer les 
différentes modifications du tableau (placement des 
pions, élimination des bactéries tuées.….). Ceci vous 
permettra d'effectuer ces opérations sans que ce 
temps soit comptabilisé. 


Pour terminer, je ne ferais que conseiller aux 
participants de la région parisienne de se rendre à 
notre réunion du 9 janvier, où nous pourrons 
peut-être comparer les premières versions de 
programmes et vous donner quelques derniers 
conseils. 


Jacques Belin (123) 


Addendum sur la Règle du Jeu de Virus, non notée dans l’article 
paru dans le précédent JPC : Les pions symbolisant les bactéries 
tuées sont replacées avec les pions non utilisés, et peuvent donc 
être remis en jeu. 
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COURRIER DU COEUR 


Frédéric BOLDIREFF 
25, rue Damesme 
75013 PARIS 

Tel : (1) 45 65 33 63 


Vend: 





HP-71, Lecteur de cartes + 100 cartes magnétiques : 
1500 FF. 
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HP-28 


L. Grand 
P. Heïlbronn 


Une Horloge sur HP28 
Choc en retour 
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HORLOGE POUR HP-28 


Avant de vous présenter mon ensemble de 
programmes, je tiens à déplorer la disparition des 
articles pour HP-28 des derniers numéros de JPC. 
Quoique je ne possède plus de HP-28 (eh oui, les 
nombreux Memory Lost dûs au développement de 
programmes en assembleur m'ont incité à migrer vers 
une machine plus confortable), je pense que c’est 
encore une très bonne machine et qu’elle n’a pas que 
des désavantages par rapport à sa petite soeur (la 
HP-48), ne serait-ce qu’au point de vue du format (on 
la met facilement dans une poche, même assez petite) 
et du clavier alphanumérique séparé. Mais, 
rassurez-vous, j'en ai terminé de me lamenter et je 
passe immédiatement à ce qui nous intéresse. 


Lorsque j'ai acheté ma première HP-28, je fus très 
vite enchanté par sa convivialité et par ses possibilités 
de manipuler des objets divers ainsi que des variables. 
Pourtant, une immense frustration ne tarda pas à se 
manifester : il manquait une horloge incorporée à ce 
superbe outil. J’ai dû patienter jusqu’au numéro 46 de 
JPC, dans lequel l’adresse d’une routine activement 
recherchée fut enfin dévoilée : cette routine renvoie la 
valeur d’un nombre hexadécimal incrémenté environ 
8192 fois par seconde. Cette adresse n’était valable 
que pour les HP-28C version 1BB. Dans le JPC 53, 
Paul Courbis révéla l'adresse de la même routine 
pour les HP-28S version 2BB. 





Dès lors, il fut assez facile d’écrire une simple horloge 
pour ces machines. Le défaut est que l’incrémentation 
ne se fait pas exactement tous les 8192ème de seconde. 
Plus encore, cette fréquence varie de machine en 
machine. C’est alors que je me suis inspiré du 
fabuleux module TIME de la HP-41 (eh oui, j’ai aussi 
eu une HP-41CX) pour créer une horloge 
“auto-correctible". Voici très brièvement le principe 
de fonctionnement du programme : 





Le programme lit la valeur de ce nombre 
automatiquement incrémenté par la machine, le 
divise par un certain nombre (que j'ai appelé TFACT. 
Ceci assure une vitesse plus ou moins correcte de 
votre horloge. Il ne reste plus qu’à lui ajouter un autre 
nombre, delta pour obtenir une date et une heure 
justes. 


J'ai choisi le nombre TFACT de telle façon que le 
résultat de la division citée plus haut soit incrémenté 
de un toutes les vingt-quatre heures. Une bonne 
valeur de départ pout TFACT est donc 24*3600*8192, 
soit 707788"800. Le nombre delta quant à lui varie 
énormément de machine en machine, je ne peux donc 
pas en estimer arbitrairement la valeur. 





L'ensemble de programmes que je vous propose 
consiste en fait en deux sous-ensembles de 
programmes : le premier est celui que je viens de 
décrire et constituera le répertoire TIME du menu HOME 
(si je peux m’exprimer ainsi, car HOME n’est pas un 
menu, mais un répertoire). Le second effectue des 
calculs sur des dates , sera stocké dans le 
sous-répertoire DATES du répertoire HOME (cette fois, 
c’est correct). Je vous prie de respecter ces deux noms 
de répertoire, car ils seront utilisés par les 
programmes pour passer de lun à l’autre. Je 
commence par le répertoire le plus simple, c’est à 
dire DATES. 


Le répertoire DATES 


Toutes les dates doivent être tapées sous la forme 
d’un nombre réel mm. jjaaaa, où mm est le mois, jj le 
jour et aaaa l’année. Par exemple, le nombre réel 
10.231987 représente la date du 23 octobre 1987 et 
vice-versa. Si cela vous paraît bizarre, vous vous 
apercevrez très vite que ce n’est qu’une question 
d'habitude. 


Le répertoire DATES contient les objets suivants : MD 
BSX DAY DOW DDAYS et DATE. 


HD est un tableau unidimensionnel de nombres réels 
dont je vous laisse deviner la signification. 


8sx prend une année au niveau 2 et un mois au niveau 
1 de la pile et renvoie 1 si le mois est postérieur à 
février et si l’année est bissextile; il renvoie O0 dans 
tous les autres cas. 


DAY prend une date comme argument et calcule le 
nombre de jours écoulés entre cette date et le 31 
décembre de lan zéro, en supposant que notre 
calendrier actuel était déjà en vigueur à cette époque. 


pou renvoie le jour de semaine d’une date (1 pour 
lundi, 2 pour mardi, ….). 


poAYs renvoie le nombre de jours écoulés entre deux 
dates. Ce nombre de jours est positif si la date au 
niveau 2 de la pile est antérieure à celle au niveau 1. Il 
est négatif sinon. 


DATE prend une date au niveau 2 de la pile, un nombre 
entier au niveau 1 et calcule la date obtenue en 
ajoutant ce nombre entier de jours à la date indiquée 
(1 correspond à la fonction DATE+ de la HP-48). 


Convention d'écriture : 
J'indique en face de chaque nom de programme l'état 


de la pile avant et après l'exécution du programme. 
Exemple : 

















DATE (2:date 1:jours + 1:date’) 


ifie que DATE a besoin d’une date au niveau 2 de 
la pile, d’un nombre de jours au niveau 1 et qu’il 
renvoie une nouvelle date au niveau 1. 


Voici les listings de ces programmes : 
MD 


[0 31 59 90 120 151 181 
212 243 273 304 334 366 0 ] 


BSX (2:année 1:mois - 1:(0 ou 1)) 


« 2 > SWAP DUP 100 
MOD OVER 400 MOD NOT 
OR SWAP 4 MOD NOT 
AND AND 


DAY (1:date - L:jour) 


« IP LAST FP 100 * 
1P LAST FP 10000 * 
ROT DUP2 BSX ROT 1 - 
DUP 365.25 * IP OVER 
400 / IP + SWAP 100 
/ IP - + MD ROT GET 
++ 


DOW (l:date - 1:jour_de_semaine) 


« DAY 7 MOD DUP 7 
IFTE » 


DDAYS (2:date1 1:date2 - 1:date2-datel) 
« DAY SWAP DAY - » 
DATE (2:date 1:jour - 1:date+jour) 


« SWAP DAY + DUP 
365.2425 / CEIL DUP 
1000000 / 12.309999 
+ DAY ROT SWAP - MD 
. 

WHILE GETI 4 PICK 

< 

REPEAT 

END 2 - SWAP OVER 
GET ROT SWAP - ROT 
ROT DUP2 BSX 

1F 

THEN ROT 1 - 

1F DUP NOT 

THEN DROP 1 - MD 


OVER GETI ROT ROT 
GET SWAP - DUP 28 - 
NOT + 
END ROT ROT 
END SWAP 1000000 / 
+ SWAP 100 / + 


» 


Le répertoire TIME 


Comme pour le répertoire DATES, je vais commencer 
par décrire un à un tous les objets avant de donner les 
listings. 


Sauf indication contraire, toutes les heures sont à 
entrer sous la forme 4h.mmss. 


Remarque extrêmement importante 


Les programmes qui suivent fonctionnent 
exclusivement sur des HP-28S version 2BB (rappel : 
pour obtenir la version de votre machine, entrez : HEX 
<ENTER> #A SYSEVAL). Si vous possédez une HP-28C 
version 1BB, remplacez TOUTES les occurrences de 
#11CAh SYSEVAL par #123Eh SYSEVAL. Hélas pour les 
possesseurs de HP-28C version 1CC, je ne connais 
pas l'adresse de la routine. Je vous conseille de vous 
mettre en mode hexadécimal (en tapant HEX) avant de 
commencer à pianoter sur vos claviers. 


N1 contient la date (sous forme d’un nombre binaire) 
du dernier FAD4J (voir plus loin). 


TT est utilisé par le chronomètre. 
xois contient les noms des mois de l’année. 
Jours contient les noms des jours de semaine. 


TFACT contient la valeur du nombre TFACT dont j'ai déjà 
parlé. 


DELTA et DAYS sont deux nombres permettant de 
calculer la valeur de delta dont j'ai déjà parlé. 


-AFF à besoin d’un nombre entier au niveau 2 (ce 
nombre représente le numéro d’un jour) et d’une 
heure au niveau 1. Il affiche l’heure et la date 
correspondant à ses deux arguments. 


F2 prend une heure comme argument et retourne une 
chaîne de caractères de la forme contenant l’heure 
avec un 0 en tête si l'heure est inférieure à dix. 


GTIME renvoie deux nombres : le premier est un 
nombre de jours et le second est l’heure actuelle. 
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-HJ est très similaire à GTIME. Il s’agit en fait de la 
principale partie de GTIME. 


kS transforme une heure en une chaîne de 
caractères. 


pcorr permet de corriger l’heure. Il a besoin d’un 
nombre au niveau 1 de la pile. ce nombre est le 
nombre de secondes à ajouter (si positif) ou à 
retrancher (si négatif) à l’heure actuelle. Par exemple, 
-1.5 DcoRR retarde l’horloge de une seconde et demie. 
DCORR ne réajuste pas TFACT. 


FADJ prend un seul argument. Il s’agit du nombre de 
secondes d’avance que votre horloge a pris depuis le 
dernier FADJ. Si votre horloge a pris du retard, entrez 
un nombre négatif dans la pile. Par exemple, si votre 
horloge a pris treize secondes de retard depuis le 
dernier FADJ, tapez -13 FADJ. 


Remarque : 


Pour que FADJ fonctionne correctement, évitez 
d’employer ocorR entre deux FADJ. Si vous tenez quand 
même à utiliser DCORR, tapez O FADJ immédiatement 
après avoir exécuté DCORR. 


CLADJ met l'heure à jour. Par exemple, s’il est 18 
heures 13 minutes 43 secondes, tapez 18.1343 CLADJ. 


vADJ met la date à jour. Par exemple, 12.251992 DADJ 
indique à votre machine que nous sommes le 25 
décembre 1992. 


cuock affiche l’heure, le jour de semaine et la date à 
l'écran. 


conT efface l'écran et affiche continûment l’heure. 
Pour arrêter CONT, appuyez sur n'importe quelle 
touche autre que ON. 


60 remet le chronomètre à zéro. 


stop indique le temps écoulé depuis le dernier Go. 


Installation 


Après avoir entré tous les programmes de cet article, 
revenez au répertoire TIME et effectuez les opérations 
suivantes : 


1) Tapez mm. jjaaaa DADJ où mm.jjaaaa est la 
date actuelle 


2) Tapez hh.mmss CLADJ où hh.mmss est l'heure 
actuelle 


3) Vérifiez que votre horloge est précise à l'aide 
de CoNT ou CLOCK. 


4) Eventuellement utilisez DCORR pour faire de 
petites corrections sur l'heure. 


5) Tapez 0 FADJ afin d’actualiser le dernier 


ajustement. 


Une fois toutes ces opérations terminées, je vous 
conseille d’attendre quelques jours avant de réajuster 
votre horloge. Il est préférable d’utiliser FADJ au lieu 
de cor ou CLADJ, car cela permet au programme 
d’ajuster sa vitesse d’horloge. 


Remarques : 

Pour obtenir un bon facteur TFACT, il est nécessaire 
d’être très précis lors des ajustements d’heure et 
d'attendre plusieurs jours (voire plusieurs semaines) 
entre deux ajustements. 

Voici les listings : 


IT 


N1 


MOIS 


€ janvier ” 
fevrier 






“avril 
“ juin 
“ aout “ 
" septembre " 
“ octobre # 

“ novembre " 
“ decembre 


JOURS 


€ “Lundi” "mardi" 
“mercredi” "jeudi! 
“vendredi” “samedi! 
Mdimanche" } 


TFACT 














707788800 


DELTA 


DAYS 


-AFF (2:jour 1:heure +) 


« CLLCD H+S 1 DISP 
DAYS + DATES 
1.000001 SWAP DATE 
DUP DOW TIME JOURS 
SWAP GET 2 DISP DUP 
F2 STD OVER FP 100 * 
IP -STR ROT MOIS 
SWAP GET + SWAP 6 9 
SUB + 3 DISP 


F2 (Linombre - 1:"nombre") 


« DUP 9 < mg“ mn 


IFTE SWAP +STR + » 





GTIME (-) 
« # 11CAh SYSEVAL 
BR HI » 
-HJ (Linombre - 2:jour 1:heure) 
« TFACT / DELTA + IP 
LAST FP 24 * -HMS » 
HS (L:heure - 1:"heure") 
« 6 FIX F2 DUP 1 2 
SUB "h " + OVER 4 5 


SUB + " m" + SWAP 6 
7 SUB +" su + STD 


DCORR (:secondes -) 


« 86400 / ‘DELTA’ 
STO+ » 


FADJ (1:secondes +) 


« 86400 / # 11CAh 
SYSEVAL 8-R DUP2 N1 
+ TFACT / OVER - / 1 
+ GTIME ROT TFACT' 
STO* 4 ROLL 24 * 
HMS HMS- 000023 
HHS+ CLADJ GTIME 
DROP - DAYS! STO+ 
#11 STO 


STOP (-) 


« # 11CAh SYSEVAL TT 
- B-R TFACT / 24 * 
HMS DUP H+S 1 12 
SUB #." + SWAP F2 8 
9 SUB +" su +1 
DISP 





GO (-) 

« #11CAh SYSEVAL 
2TT' STO » 

CLADJ (1:heure -) 

« GTIME ROT SWAP 
HMS- .000015 HMS+ 


HMS+ 24 / DELTA’ 
STO+ DROP TIME 


DADJ (I:date-) 
« DATES DAY TIME 


GTIME DROP - DAYS’ 
STO » 


CLOCK (-) 


« GTIME -AFF » 
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CONT (-) 


« CLLCD 4 FIX 
DO #11CAh SYSEVAL 
B+R TFACT / DELTA + 
FP 24 * -HMS 1 DISP 
UNTIL KEY 
END DROP STD 


Laurent Grand (516) 


CHOC EN RETOUR 


Dans mon article Calcul formel sur HP-28S et 
HP-485X paru dans JPC 77, quelques erreurs se sont 
glissées : 


- A la dernière ligne, au lieu de : 


ROT OVER STO ORDER il faut lire : 
ROT OVER STO + ORDER 


- Le nom du programme est *#” (la lettre mu) et non 
la lettre ’w’. 


- Enfin, les caractères « et } doivent être remplacés 


par les délimiteurs de programmes « et ». 6 S j 


Philippe Heilbronn (233) 
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HP 48 EN PREPA 
notes de lecture 


La HP-48 a acquis ses lettres de noblesse parmi les 
scientifiques et en particulier les matheux. Aux Etats 
Unis sont commercialisées au moins huit cartes de 
bibliothèques mathémathiques. La France tient bien 
son rang avec les ouvrages du milieu "prépa" : 


- Ceux de J.M. Ferrard. 

- Celui de P. Courbis et S. Lalande dont la vocation 
est de documenter les programmeurs en assembleur 
mais contient quelques programmes mathématiques 
intéressants. 

- Et le tout nouveau HP 48 en prépa dont le titre 
annonce tout de suite la couleur et le sous-titre : 


des solutions pour les concours! 
programmes.astuces.assembleur.intemals 


précise les options prises par les auteurs qui se sont 
mis à trois pour nous concocter cet ouvrage de 398 
pages. 


Le livre est intéressant et ce genre d’entreprise est à 
encourager. 


Le livre contient un bon de commande de la disquette 
des programmes que l’on peut se procurer pour la 
somme de 50 F + 10 F de frais de port. Cela nécessite 
évidemment la possession du kit de connexion 
HP/IBM PC 


On peut répartir les chapitres en neuf parties : 


Partie I 10 pages 


introduction-prêt pour le prêt à programmer ? 


C’est une préparation à l’utilisation de la HP-48. J'en 
retiendrai surtout la liste des frappes de touches pour 
obtenir les caractères spéciaux de la HP-48 et la 
structure des répertoires des programmes du livre 
parce que pour le reste il semble que le niveau des 
lecteurs auxquels s'adresse ce livre les fera passer 
rapidement les 7 autres pages. 

Partie II 14 pages 

Programmes de base 

7 programmes répertoire HOME 


Ce sont des programmes outils qui seront utiles non 
pas pour faire des mathématiques mais examiner des 
fichiers texte, assembler des chaînes de code ou des 
programmes ou bien faire l'inverse. Là je suis réticent 





au système employé pour les exemples d'utilisation 
des programmes. En effet par exemple pour lancer le 
programme Look on vous dit de faire la séquence de 
frappes : 


La] Ca] [NEXTJ CEVAL] LEVAL] [FHI CENTER] 


Alors que dans l'introduction on nous a expliqué 
comment obtenir les différents caractères. Cela 
présente l’inconvénient d’utiliser un pourcentage non 
négligeable de lignes et lorsque le nom, en clair, du 
programme se trouve 2 pages avant on est un peu 
désorienté. Ce qui est paradoxal c’est que lorsqu'un 
nom de sous-programme est à frapper dans un 
programme là on vous laisse agir comme un grand. 
Pour moi ce système est le point noir du livre qui par 
ailleurs a beaucoup de points positifs. 


Ce programme Look permet de visualiser un texte 
rapidement. Cela est très pratique et remédie à la 
lenteur de l'éditeur de la machine. Dès ce programme 
j'ai remarqué que l’auteur de nombreux programmes 
ignore que le test : 


1F 0 == THEN 
peut être remplacé par 
IF NOT THEN 
ce qui est plus court et plus rapide. 


De même l'instruction CASE rend la programmation 
d'une série de tests plus claire, plus courte et plus 
rapide. 


FIND est proposé pour la recherche des chaînes. 


PGM et -PGM permettent de décomposer ou de 
recomposer un programme. Dans chaque cas cela se 


réalise par deux SYSEVAL et c’est à utiliser avec 
précautions. 


sys permet de rappeler en mémoire un objet dont on 
donne l’adresse et opère aussi dans la mémoire 
cachée. Il utilise 2 SYSEVAL. 


Enfin une application de sys et -PGM est donnée et 
pour la réaliser il faut, oh horreur ! lire 8 lignes de 
frappes de touches qui se résument à ceci : 

# 18AD8h SYS # 60F9Bh SYS 2 PGM 


Pour assembler les chaînes de codes on utilise ASS qui 
est un programme en user rpl qui exploite l'astuce de 
travailler sur un objet graphique pour arriver à l’objet 
lui-même. Très bonne méthode qui évite les 
contraintes du procédé pour HP-28 et qui est si bonne 











qu’elle n’est plus une nouveauté. Donc pas 
d’assembleur en assembleur. 


Le décompilateur d’objet est cette fois en system rpl et 
assembleur. C’est l'équivalent de -Asc mais avec 8 
octets de plus. Le listing du fichier source est fourni. 
Seule la partie en system rpl est commentée. En ce qui 
concerne la partie assembleur le code est aligné en 
face de chaque mnémonique mais il n’y a aucun label 
pour les sauts ou les boucles ce qui fait qu’il faut se 
livrer à un petit calcul qui n’est pas à la portée du 
débutant alors que le listing est proposé pour faire 
comprendre le fonctionnement du programme. Je 
doute que le but soit atteint. Les listes de codes pour 
tous les programmes en assembleur sont fournies 
sous forme de groupes de 3 caractères. Cela se 
mémorise peut être mieux entre la lecture et la frappe 
que des groupes de 4 ou 5 caractères moins 
gourmands en espace, c’est à voir. 


Partie III 164 pages 


L'arithmétique 
16 programmes 
Répertoire ARITHM 


Les auteurs ont opté pour que les résultats soient 
souvent donnés sous forme de nombres rationnels. 
Aussi les programmes du répertoire ARITHH seront 
souvent utilisés comme sous-programmes. 


On trouve au premier rang DECOMP et EDIVI qui ont fait 
leur première apparition dans JPC n° 62 de mars 89 
et pour la HP-28, sous la signature de votre serviteur. 
Lorsque j'ai acheté le livre j'ai eu un petit choc au 
coeur mais tout compte fait je suis content que ces 
programmes soient utilisés par un plus grand nombre 
de lycéens et d'étudiants. L’un des auteurs, Matthieu 
Cornillault, m’a promis de rétablir les choses lors 
d’une nouvelle édition. Je pense même que ma toute 
dernière version (JPC81) qui est plus performante et 
conviviale pourrait remplacer EdIVI ancien cru. Ici le 
listing du fichier source est proposé mais tout nu, sans 
commentaires ni labels, mais avec les adresses de 
désassemblage figurant en face des mnémoniques et 
permettant de localiser les sauts, boucles et sous 
routines. 


On peut cependant regretter que les auteurs n’aient 
pas eu la correction de faire figurer les noms des 
auteurs de nombreux programmes, laissant peut-être 
aux nombreux débutants ignorant de ce qui se fait 
autre part l'illusion qu’ils étaient les auteurs de ces 
programmes f/refe de 2 


Après ces 2 programmes pour la décomposition des 
nombres en facteurs premiers, les deux compères 
obligés sont PGcD et PPcM. Le premier a été réalisé en 
assembleur car il est souvent appelé par de nombreux 
programmes pour traiter les nombres rationnels. 
J'aurai l’occasion de revenir sur PGCD que je pensais 
être un thème largement épuisé or je me suis aperçu 
qu’il n’en est rien. Ici pas de fichier source pour PGcD 
seulement les codes. Je n’ai pu résister à la tentation 
de désassembler ce programme. J'ai découvert que 
l'algorithme qui est employé n’est pas celui classique 
d’Euclide, mais un algorithme plus récent découvert 
en 1961 par JStein donc plus de 2200 ans après 
Euclide. 


Suivent 12 programmes de calculs sur les fractions et 
un programme de redéfinition du clavier pour 
manipuler les fractions qui se présentent sous forme 
de nombres complexes. 


Calculs sur les polynômes 
18 programmes 
Répertoire ARITHM\POLY 


Les polynômes sont repésentés par des listes de 
coefficients qui peuvent être des réels, des rationnels 
ou des valeurs litérales. Toutes sortes d’opérations 
peuvent être effectuées sur ces polynômes depuis 
celles de type arithmétique en passant par les PGCD et 
PPCH jusqu'aux opérations de dérivation et 
d'intégration. Ces programmes peuvent donc 
manipuler des polynômes de types différents et c’est 
ici que commence l'originalité du livre. La liste se 
termine par un programme de conversion des 
coefficients  rationnels (..…) en coefficients 
quelconques. Celui-ci fait appel 5 fois à SYSEVAL mais 
une adresse (#5E652h) ne se trouve pas dans la liste 
des internals. Cette lacune se reproduit dans d’autres 
programmes. Cela n’enlève rien à la valeur de 
lensemble mais fait buter le lecteur qui veut 
comprendre le programme et cherche la signification 
de certaines adresses dans la liste commentée des 
internals (voir ci-dessous). 


Racines 
2 programmes + des petits s/progr. 
Répertoire ARITHM\POLY\RACINES 


- Décomposition d’un nombre en ses diviseurs. 

- Racines d’un polynôme, programme polyvalent apte 
à travailler sur des polynômes quelconques et dont les 
résultats peuvent être donnés sous forme rationnelle 
si le polynôme est à coefficients entiers. 


Algorithmes 
3 programmes 
Répertoire ARITHM\ALGO 
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- Algorithme de Bézout bien connu des 
arithméticiens. Le résultat est envoyé dans une 
chaîne. 


- Algorithme de Newton pour remplacer la fonction 
ROOT qui ne fonctionne qu’avec des réels. 
- Et enfin un algorithme de tri de liste par insertion. 


Développements limités à coefficients algébriques 
23 programmes 
Répertoire ARITHM\DL 


Ici les DL se présentent sous forme de listes où les 
rationnels prennent forme de complexes. Donc de 
nouvelles possibilités par rapport à ce qui se fait 
ailleurs. 


Un ensemble bien étoffé. 


Pour ce répertoire les remarques faites pour le 
répertoire MATRICES concernant les tests de la 
présence d’arguments sont aussi valables. 


calculs matriciels 
15 programmes 
répertoire ARITHM\MATRICES 


Ces programmes travaillent sur des matrices de 
rationnels se présentant sous forme de complexes. On 
y trouvera les opérations classiques sur les matrices, 
et ce qui permet d'obtenir : 


Co-matrice, polynôme caractéristique, déterminant. 
Et pour finir la résolution d’un système de Cramer. 


Je n’ai pas eu le temps d’analyser si l'algorithme de 
Leverrier qui est employé est l'original ou celui qui a 
été amélioré depuis. Aucune précision n’est donnée 
sur l’argument d'entrée et le résultat de ce 
sous-programme qu’un lecteur peut très bien désirer 
utiliser pour ses propres programmes. Donc celui-ci 
devra passer un certain temps avant de découvrir 
comment utiliser ce sous-programme pour lui-même. 
A mon avis les auteurs ont été un peu avares en 
explications concernant les programmes en général et 
que le lecteur, qui ne se contente pas d'utiliser 
seulement des outils mais veut comprendre et aller 
au-delà, se sent un peu frusté. Je sais qu’il faut bien 
limiter le volume d’un ouvrage pour des raisons 
économiques mais j'ai fait allusion, ici et là, à la 
possibilité de récupérer de la place. 


Beaucoup de choses utiles dont une partie existe 
ailleurs mais ce qui fait la différence c’est la 
possibilité de travailler sur des rationnels. 


Pour ce répertoire et ses sous répertoires il était 
possible de faire des économies d’octets, appréciables 
en mettant des programmes qui testent la présence 
d'arguments et délivreent un message d’erreur 
éventuel au lieu de faire faire ce travail par chacun 
des programmes. Ce qui a été fait, part d’une très 
bonne idée car elle constitue une aide en ligne 
appréciable lorsqu'on a oublié le nombre et la nature 
des arguments à fournir. Pour les répertoires 
MATRICES et DL on peut récupérer sans peine plus 
de 1200 octets. Je compatis pour les petits copains 
dont les machines ne sont pas bourrées de cartes 
(HP-48S etc..). 


matrices algébriques 
19 programmes 
répertoire ARITHM\MATRICES\ALG 


Les programmes permettent de faire des opérations 
sur des matrices pouvant contenir des éléments non 
évalués. 


En plus d’utilitaires ont y trouvera les opérations des 
programmes du répertoire parent MATRICES. 


applications des matrices 
5 programmes 
répertoire ARITHM\MATRICES\ALG\APPLI 


- Jordanisation d’une matrice 3x3. 

- Algorithme de Gauss, calcul du rang. 

- Résolution symbolique d’un système. 

- Equation des espaces propres d’une matrice. le 
résultat est donné sous forme litérale. 

- et 3 sous-programmes utilisés par JORDAN. 


Pour ceux qui n’ont pas la disquette, l'absence du 
checksum et du nombre d’octets des programmes est 
assez génant car par exemple pour JORDAN qui fait 
2729 octets une erreur de frappe ne se décèlera pas 
immédiatement. 


Outils 
1 programme 
Répertoire OUTILS 


C'est essentiellement un programme de linéarisation 


de : cos(n*x) , sin(n*x) , cos"n(x) et sin"n(x). 


Géométrie 
2 programmes 
Répertoire GEOMETRIE 


- Un traceur d’enveloppes de droites. 








— 








- Développée d’une courbe paramétrée. 


A propos de ces 2 programmes il est donné des 
exemples dont la présentation absorbe beaucoup de 
place et il était possible de mettre en tête de ces 
exemples les directives communes au lieu de les 
répéter inlassablement. Cette place, dans une 
nouvelle édition, pourrait être récupérée pour y 
mettre des compléments attendus par les lecteurs. 


Equations différentielles 
3 programmes 
Répertoire EQUADIFF 


Ces programmes doivent permettre de résoudre sous 
forme graphique des équations différentielles des 
premier et second ordres. 


Cette deuxième partie repésente donc un ensemble 
de 108 programmes et sous-programmes. 


Partie IV 40 pages 
Sujets corrigés 


Au travers de différentes épreuves pratiques de 
mathématiques des concours des grandes écoles on 
nous propose des solutions où la HP-48 apporte son 
concours soit directement ou par l'intermédiaire des 
programmes du livre. Evidemment la machine ne fait 
pas tout, il y a un travail théorique à faire avant 
Putilisation de la machine. La possibilté des 
programmes de fournir des résultats sous forme de 
rationnels est mise à profit. Donc ce chapitre nous 
donne des applications intéressantes pour la clientèle 
"prépa". 


J'avais signalé que l’un des auteurs semblait ignorer 
l'existence de l'instruction CASE aussi je ne puis 
résister à montrer l'intérêt de celle-ci avec l’aide d’un 
programme de ce chapitre et devant faciliter la 
solution numérique d’une partie de problème : 


Voici le listing du programme en cause : 
en 252.5 octets 
«-n 


IF n 2 MOD 0 == 
THEN n 2 / DIVI 
ELSE 
IF n 3 MOD 0 == 
THEN n 3 / DIVI 
ELSE 
IF n 5 MO O0 == 
THEN n 5 / DIVI 
ELSE 


1F n 7 MOD 0 == 

THEN n 7 / DIVI 

ELSE 
IFn1= 
THEN 1 
ELSE 0 
END 

END 

END 
END 
END 





Et maintenant la solution avec CASE : 
en 207.5 octets 


«-n 
« 

CASE n 2 MOD NOT THEN n 2 / DIVI END 

n 3 MOD NOT THEN n 3 / DIVI END 

n 5 MOD NOT THEN n 5 / DIVI END 

n 7 MOD NOT THEN n 7 / DIVI END 

ni THEN 1 END 

0 
END 


C’est plus clair et plus court. 
Solution que l’on peut encore optimiser : 


en 150 octets 


CASE DUP 2 MOD NOT THEN 2 END 
DUP 3 MOD NOT THEN 3 END 
DUP 5 MOD NOT THEN 5 END 
DUP 7 MOD NOT THEN 7 END 
DUP 1 THEN 1 END 
0 





END 

DUP 1 > 

JF 

THEN / DIVI 
ELSE SWAP DROP 
END 


Le programme principal appelant ce sous-programme 
donne les résultats en : 


avec la solution de 252.5 octets : 28 secondes 
avec la solution de 207.5 octets : 19 secondes 
avec la solution de 150 octets : 17 secondes 
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Ces comparaisons ne sont pas destinées à montrer ce 
qu’il faut faire dans un concours où on n’a pas le 
temps de paufiner dans une véritable course contre la 
montre. 


Partie V 20 pages 
trucs et astuces 


On y donne un certain nombre de renseignements qui 
peuvent donner lieu à des astuces mais au sens très 
large du terme. Voici la liste : 


- Remplacement des messages d’erreurs avec les 
Array of String. 

- Menus. exemple pour réaliser un menu avec des 
libélés de différents types. 

- Les ports de la HP-48SX. astuce pour rappeler les 
objets d’une carte (donc possibilité de piratage). C’est 
un moyen simple parmi toutes les méthodes possibles. 
- Quelques précisions sur la commande PKT. 

- Un programme PEEK. 

- Les répertoires cachés. comment en créer. 

- La commande wsLoG. 

- Quelques informations sur le microprocesseur et le 
scanner. 

- Descrition de la structure des objets HP-48 (plus 
succinte que dans l’ouvrage de P.C et S.L). 


Partie VI 11 pages 
programmation en assembleur 


Ce chapitre peut se diviser en 2 parties : 

-4 pages d'explications sur la programmation en 
assembleur et le reste pour décrire les mnémoniques 
du processeur Saturn (HP 71/28/48). Les débutants 
trouverons certainement que c’est insuffisant d’autant 
que le meilleur moyen pour s'initier à l’assembleur 
c’est celui de la pédagogie par l’exemple. Or l'ouvrage 
ne contient que 2 fichiers sources non commentés et 
sans labels. 


Partie VII 71 pages 
internals de la HP 48 


Les auteurs poussent un peu la plaisanterie en 
intitulant le chapitre : quelques internals de La HP 48. 
Dans ces 71 pages on trouvera classés par ordre 
croissant les adresses à la fois de ce qui est connu de 
Putilisateur courant c’est-à-dire les commandes de la 
machine ainsi qu’un certain nombre d’objets tels 1, 
"A" et ce qui est caché c’est-à-dire programmes et 
routines internes sans oublier les objets non 
disponibles normalement tels que par exemples les 
system binary. Chaque adresse est documentée par 


une ligne. Du point de vue exploitation ces 71 pages 
ne sont pas faciles à utiliser, il aurait fallu faire un 
classement par familles et séparer les commandes 
utilisateur du reste. En revanche pour le lecteur qui 
veut avoir une information sur une adresse utilisée 
dans un programme du livre c’est la solution de la 
liste unique qui convient. Il y aurait peut-être une 
possibilité d'améliorer les choses avec la disqette des 
programmes: il suffirait d’ajouter le fichier texte (en 
simple ASCII et donc lisible par tous) de la liste des 
internals, ce qui aurait l'avantage de permettre aux 
possesseurs de PC de faire plus rapidement des 
recherches avec un petit fichier batch et la commande 
FIND du DOS. 


Partie VIIL 34 pages 
applications 


Il ne s’agit pas d’applications des programmes 
mathématiques mais de 3 ensembles de programmes 
pour réaliser : 


1- Des bibliothèques. Il existe des programmes pour 
faire cela avec un PC mais ici on nous donne la 
possibilité de le faire avec une HP-48. C’est une très 
bonne idée que d’avoir fourni ce créateur de 
bibliothèques. Le mode d'emploi pour fabriquer est 
suffisant mais il manque quelques explications sur les 
propriétés des bibliothèques et en particulier il n’est 
pas signalé qu’elles ont une structure plate donc pas 
de sous-répertoires. 


2-des matrices de chaînes qui sont des objets se 
présentant sur la pile sous forme de Array of String et 
ne sont pas normalement accessibles à l'utilisateur. 
Elles sont utiles pour réaliser des ensembles de 
messages d’erreurs. 


3 - des affichages à 5 ou 7 lignes. 


L'ensemble des programmes est fait pour réaliser une 
bibliothèque. A l'usage cela se révèle très pratique. Je 
connaissais des programmes qui font ces affichages 
étendus mais l'affichage n’est pas permanent. On peut 
passer indifféremment de 5 à 7 niveaux. Pour 5 
niveaux il y a des fonctionnalités supplémentaires. 


Partie IX 21 pages 
annexe : programmes et sous-programmes 


Cette liste récapitulative des programmes donne par 
répertoire le nom des programmes et indique si le 
programme est autonome ou s’il fait appel à d’autres 
programmes du même répertoire ou de répertoires 
différents. Ceci est une bonne chose car cela permet 
d’avoir l'assurance que si l'on extrait une partie des 














programmes il n’y aura pas de plantage parce qu’il 
manque un sous-programme appelé par le 
programme principal. Cette façon d’opérer sera 
particulièrement utile pour les possesseurs de HP-48S 
qui ne pourront pas loger l’ensemble des programmes 
mathématiques du livre. 


Pour l'avenir : 


Lors d’une nouvelle édition l'ouvrage pourrait être 
encore plus apprécié en lui apportant les 
améliorations suivantes : 

- Systématiquement indiquer le checksum et le 
nombre d’octets de tout programme ou objet. Cela 
est indispensable pour ceux qui ne possèdent pas la 
disquette de programmes et cela permettrait à tous 
d'identifier les versions lors d’une actualisation des 
programmes. 

- Indiquer le temps d'exécution pour obtenir les 
résultats des exemples. $ 

- Sur la disquette fournir le fichier texte des internals 
pour faciliter les recherches à laide d’un fichier batch 
et de la commande FIND du DOS. 

- Abandonner la méthode des frappes de touches 
mais donner simplement le nom du programme à 
appeler pour obtenir le résultat des exemples. 

- Donner les fichiers sources de tout programme en 
assembleur avec les labels pour les sauts ou les appels 
de sous routines. Des commentaires seraient les 
bienvenus. 

- Partitionner la liste des internals par familles et 
quelques informations sur le microprocesseur et la 
compléter avec les internals utilisés dans les 
programmes mais non documentés. 

- améliorer la rapidité des programmes de calcul 
formel : 

-en faisant appel à des programmes écrits en system 
rpl ou en assembleur lorsque cela est possible. 

-en évitant que plusieurs sous-programmes fassent 
des vérifications d’argument alors que cela ne doit 
être fait qu’une fois par le programme principal. 

-en optimisant les programmes par une meilleure 
utilisation des instructions de la HP-48 par exemple 
utilisation de l'instruction CASE dans une suite de tests. 
- Faire un sous-programme d’aide en ligne appelable 
par les nombreux programmes qui utilisent le même 
type d’aide en ligne au lieu de l'intégrer dans chacun 
des programmes d’où un encombrement mémoire 
excessif. 


Réaliser un ouvrage en équipe présente à la fois des 
avantages et des inconvénients : 


- Avantages : utilisation des compétences de chacun 
et répartition du travail. 


- Inconvénients : il faut assurer une coordination 
parfaite et rendre l’ensemble homogène. 


L'ouvrage a bénéficié des avantages mais parfois aussi 
des inconvénients. Mais n'oublions pas que les 
auteurs sont des étudiants qui ont donné beaucoup 
d'eux-mêmes et ont disposé d’un temps limité par 
leurs études. 


En conclusion nous pouvons dire que cet ouvrage est 
une oeuvre utile et intéressante qui mérite de faire 
son chemin. Les auteurs peuvent encore, avec un peu 
de recul, rendre ce livre tout à fait indispensable. 
Nous devons être reconnaissants aux auteurs d’avoir 
sacrifié leurs loisirs pour réaliser ce travail important 
et nous ne pouvons souhaiter qu’une chose : qu’ils 
continuent. 


Je n’ai pas la prétention d’avoir tout vu de cet ouvrage 
ni tout dit. Il faut beaucoup plus de temps que je n’en 
ai disposé mais je pense que vous pouvez maintenant 
avoir une petite idée de son contenu. Il aurait fallu 
parler de façon précise de la rapidité d'exécution des 
programmes et en particulier de ceux qui sont très 
polyvalents car pouvant travailler avec des données de 
types différents mais dont la contre-partie est d’être 
plus lents que les programmes plus spécialisés. Il 
aurait fallu aussi tester les programmes avec des 
arguments plus compliqués que ceux des exemples du 
livre. A vous de le faire et de nous en parler. 


Bonne lecture. 


Guy Toublanc (276) 


HP 48 en prépa 
par Matthieu Cornillault 
Marc de Courville 
Emmanuel Lesueur 
Editions Dunod 
165 francs 


Note : Un erratum de 2 pages accompagne maintenant le livre. Il 
concerne des erreurs dans les listings de programmes. Cet erratum 
doit être disponible auprès des libraires pour les premiers 
acheteurs du livre, ce qui est honnête alors que pour le livre de 
P.C et S.L, il faut acheter la 2ième édition pour avoir un texte 
épuré, ce qui est en régression par rapport à ce qui avait été fait 
pour leur ouvrage sur la HP-28. 


JPC 82 Page 21 — 











—— JPC 82 Page 22 


ANNUAIRE TELEPHONIQUE 


TEL est un petit annuaire. Il vous permet de stocker, 
de rechercher et de supprimer des adresses, ou plus 
généralement des enregistrements. Il a été écrit pour 
la première fois en 1989 pour une HP-28S. Comme je 
possède actuellement une HP-48, et que je n’ai plus 
de HP-28, je vous présente les programmes pour la 
HP-48. Les possesseurs de HP-28 n’ont qu’à changer 
la commande LASTARG en un LAST et supprimer les 
commandes 3 FREEZE du programme AFF. 


Tous les enregistrements sont stockés dans la variable 
BOTIN. La variable BOTIN doit contenir une chaîne 
de caractères vide avant la création du premier 
enregistrement. 


Remarque importante : 
La dernière phrase du premier paragraphe vous a 


sans doute fait deviner qu’il est nécessaire que LASTARG 
(ou LAST pour les HP-28) soit valide. 


Mode d'emploi 


CREER: (string --> ) 


Permet d'ajouter un nouvel enregistrement. string 
doit être composé d’au moins deux lignes. La 
première ligne contiendra le nom de la personne. 
Lors de la recherche, le critère de choix s’effectuera 
sur la première ligne de chaque enregistrement. 


Exemple : 

MBOLOMEY JACQUES 

Avenue des Canaris 12 

11223 Fantômevi L Le 

tel 12.34.56.78" CREER 
Jai écrit le nom en majuscules uniquement pour 
faciliter une recherche ultérieure. 


NOTEL: (string--> ) ou (expr--> ) 


Cherche le premier enregistrement dont la première 
ligne commence par string (ou expr). 


Exemple : 


#BOL' NOTEL 


Attention : NOTEL tient compte des minuscules et des 
majuscules. 


SUIVANT : (>) 


Cherche le prochain enregistrement correspondant à 
largument du dernier NOTEL. 


Attention : LASTARG contient une partie de BOTIN et le 
nom à rechercher. Il ne faut donc utiliser SUIVANT 
qu’immédiatement après SUIVANT Ou NOTEL. 


TOUS: (->) 
Il s’agit d’un raccourci pour "“ NOTEL. 


Tous permet ainsi de visualiser séquentiellement tous 
les enregistrements en exécutant plusieurs fois le 
programme SUIVANT après TOUS. 


OTER: (string --> ) ou (expr-—> ) 


Supprime l'enregistrement dont la première ligne est 
exactement string Ou expr. 


Exemple : 
MBOLOMEY JACQUES" OTER 


Ici, l’espace entre BOLOMEY et JACQUES nous contraint à 
utiliser une chaîne de caractères comme argument. 


Et maintenant, voici les programmes : 


BOTIN 


AFF 


« 3 FREEZE CLLCD 1 
DISP 
» 


OTER 


« -STR 2 OVER SIZE 
1 - SUB DUP BOTIN 1 
CHR ROT + 10 CHR + 
POS 
1F 
THEN BOTIN 1 
LASTARG 1 - SUB 
LASTARG + 1 + BOTIN 
SIZE SUB DUP 1 CHR 
POS 
IF 
THEN LASTARG 














OVER SIZE SUB + 

ELSE DROP 
END 
#BOTIN’ STO 
DROP 

ELSE " 

Non repertorie" + 

AFF 

END 


CREER 


« 10 CHR + LASTARG 
1 CHR ROT + DUP ROT 
Pos 
IF 
THEN LASTARG OVER 
1 ROT SUB BOTIN 
SWAP POS 
IF 
THEN DROP DUP 
10 CHR POS 1 SUAP 
sus 
Deja repertorien + 
AFF 
ELSE BOTIN + 
!BOTIN' STO DROP 
END 
ELSE DROP 
“Non conforme! + 
AFF 
END 


NOTEL 


« +STR 2 OVER SIZE 
1 - SUB BOTIN 1 CHR 
ROT + DROP2 SUIVANT 


» 


TOUS 


<« " NOTEL 


» 


SUIVANT 


« LASTARG DUP2 POS 
IF 
THEN 1 LASTARG + 
ROT SIZE LASTARG 
ROT ROT SUB DUP 1 
CHR POS 
IF 
THEN LASTARG 1 
SWAP 1 - SUB 


LASTARG + OVER SIZE 
Su8 
ELSE »» 
END ROT ROT AFF 
END DROP2 


J'espère que vous saurez apprécier la simplicité et 
lutilité de cet ensemble de programmes. 


Laurent Grand (516) 





FAST-ORIELLES 
Actell 


Notre ami Laurent Grand nous a gratifié de FFACT, 
(GPC-81), programme de calcul de factorielles en 
multi-précision dont la rapidité d’exécution est sans 
commune mesure avec les programmes en User RPL. 
Il est même 10 fois plus rapide que BFACT de l’ouvrage 
de P.Courbis et S.Lalande, ce programme étant 
partiellement en assembleur. Laurent laissait 
présager des améliorations possibles par un autre 
programmeur. Je me suis mis sur la liste, et parmi 
différentes versions de programmes jen ai retenu 
deux qui sont un compromis entre encombrement et 
rapidité. L’un des programmes admet des arguments 
de 5 chiffres donc éventuellement utilisable par une 
HP-48SX avec une extension mémoire, l’autre se 
limite à 4 chiffres donc destiné aux HP-48S ou 
HP-48SX sans extension mémoire. En effet, grâce à 
la formule de Stirling on peut calculer que pour 
10000 ! il faudra 35665 octets de mémoire pour la 
seule chaîne du résultat, ce qui dépasse largement la 
capacité mémoire des HP-48 nues. D’autre part si 
lon estime que des arguments inférieurs à 1E4 sont 
largement suffisants alors la version pour HP-48SX 
doit être abandonnée car 11% moins rapide que sa 
soeur. Je ne présente pas les versions plus rapides car 
plus gourmandes en octets. 


Quelques remarques concernant le programme FFACT 
de Laurent : 


- un réel entier est demandé comme argument mais 
aucune vérification n’est faite sur la nature de celui-ci 
ce qui cause quelques problèmes car pour des 
arguments inférieurs ou égaux à 14 c’est FACT qui fait 
le calcul et il y a divergence entre elle et FFACT au 
niveau des résultats et des messages d’erreurs pour 
les arguments de types suivants : 
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réel négatif, réel non entier, complexe 
- le mode symbolique conduit à erreur 
- il n’y a pas de limite d’argument: 


1048577 FFACT renvoie # 1048577d 
alors que le programme est conçu pour n < 100000 


Dans mes programmes j'ai inclu les vérifications 
nécessaires des arguments ce qui coûte 35.5 octets. 


Voyons les résultats de mes améliorations : 


pour calculer 1000 ! il faut 82 secondes avec la version 
lente et 74 secondes avec sa soeur contre 202 
secondes pour FFACT de Laurent. 


Si je n’inclus pas les vérifications d’arguments mes 
versions occupent 228.5 et 230 octets contre 378.5 
pour celle de Laurent. 


Ce gain d’octets a été obtenu : 


-en utilisant des routines en System RPL qui 
remplacent une partie du code en assembleur 

-en reprogrammant la formule de Stirling et en 
négligeant la partie résiduelle 1/12n qui n’est pas utile 
pour le calcul du nombre de chiffres den!. 

-en regroupant (dans la partie assembleur) les 2 
boucles 13 et 14 en une seule. 


Le gain de rapidité a été obtenu : 


-par une utilisation optimale des registres et une 
réduction du nombre de transferts de données entre 
registres et mémoire: n ! est découpée en tranches de 
11 ou 12 chiffres au lieu de 5 pour la version de 
Laurent 

-je n’utilise pas la routine multiply mais une copie 
légèrement simplifiée. Voici le listing de multiply : 


D898 b=0 w 


DB9E sb=0 
esrb 
?sb=0 
goyes  DBAC 
b=ba ou 

DBAC a=ata 4 
2c#0  w #* modif 

*?2c#0 à 

goyes  DB9E 
ab  n * supprimé 
ca u * supprimé 
rtncc 


7. 


ce qui me permet de ne pas détruire le registre C et 
de pouvoir utiliser son contenu pour la suite: 

- utilisation de la pile des retours, quand cela est 
possible, pour les sauvegardes car plus rapide et 
moins gourmand en octets. 

- quand cela a été possible le chargement d’une même 
constante ou la sauvegarde d’une donnée d’une façon 
répétitive dans une boucle ont été évités. 


Voici le fichier source de la version de FFACT pour 
HP-48$. Les modifications pour la version HP-48SX 
sont indiquées. Aux modifications près, la 
programmation suit celle de Laurent dont presque la 
totalité des commentaires s’applique. 


FFACT (version HP-48S) 
RPL 
cki&Dispatch C vérifie qu'il ya ) 
real € 1 réel sur La pile ) 
DUP € vérificaions de La ) 
%SGN C validité de ) 
%0< € L'argument : ) 
OVER Centier positif ) 
XFP Cet inférieur à La ) 
%0<> C Limite ) 
OR € ) 
OVER € ) 
DOREAL € ) 
ASSEMBLE 
nibhex 4000000000000010 
* 10000 
* nibhex 5000000000000010 
* 100000 pour hp48sx 

RPL 
%= € ) 
ORNOT € ) 
SKIP € ) 
SETSIZEERR C mauvaise valeur ) 
DUP 
215 
%< 
case 
NFACT C FACT si n < 15 ) 
as Cn!en chaîne ) 
TOTEMPOB € sinon calcul du ) 
DUPDUP C nombre de chiffres ) 
ze € formule de Stirling ) 
21 C simplifiée ) 

















XL0G goyes multi 














%* c=rstk 
OVERDUP c=c+b “ 
2 datO=c Hp 
XPI d0=d0+ 12 * 11 pour hp48sx 
x c=0 wp 
SORT csle 
XLOG csle 
%+ csle 
*CEIL cslc 
COERCE € nombre de chiffres) * cslc à ajouter 
NULLSTEMP C création de La  ) * pour hpé8sx 
OVER € chaîne devant ) sethex 
#2* € recevoir n ! ) d=d-1 a 
EXPAND € ) gonc u 
SWAPROT ?c=0 a 
COERCE (n'en system bin. ) goyes l2 
dat0O=c a 
CODE a=r0 
asa+i a 
gosbvl =POP2# rû=a 
acex a 2 czrè 
rstk=c * Longueur de n! c=c-1 a 
c=0 w r2=c 
cz=a a ?c#0 a 
r2=c * nhexa goyes Loop 
gosbvl =SAVPTR 
a=dat1 a P= 0 * pour La sortie 
d c=rstk 
di=di+ 10 c=c-1 a 
adiex b=c a 
riza * adresse début n! csrb 
di=a a 
c=0 a 
r0=c a 
c=c+1 a 
P= 1 * 10 pour hpé8sx rstk=c 
dati=c wp Loop2 a=dat0 1 
c=dat1 4 
Loop dati=a 1 
czri dat0=c 1 
d0=c di=di+ 1 
c=r0 1 
d=c a a 
c=0 a Loop2 
u rstk=c 
setdec 
a=0 “ a 
a=dat0 mp 
ezr2 30 * chargé avant La boucle 
b=0 “ * routine multiply u 1 * Le transfert en ascii 
mult1 sb=0 * intégrée ici 2 * ne commence qu'ici 
csrb 2 
?sb=0 1 
goyes mult2 a 
b=b+a “ gonc E 
mult2 asata # goving =GETPTRLOOP 
?c#0 a * car n < Î1E5 
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ENDCODE 


Vous trouverez la liste des codes dans la rubrique /e 
coin des codes pour les deux versions. 


Remarque: ci-dessus j'ai fait allusion à d’autres de 
mes programmes qui sont plus rapides mais plus 
encombrants. En effet en employant les nouvelles 
instructions telles que : a=r0.f csrb.f etc. 





on peut améliorer la rapidité mais en sacrifiant des 
octets. 


Merci à Laurent pour avoir montré le chemin. 


Guy Toublanc (276) 





BON TEMPS ET BONS 
PROGRAMMES 


Vous êtes riches de plusieurs programmes qui 
remplissent le même rôle et vous désirez garder le 
meilleur. Pour faire ce choix, deux critères sont à 
examiner : l'encombrement mémoire et la rapidité. 


Je vous propose un petit programme permettant de 
tester la rapidité. Celui-ci est en RPL pour en réduire 
encombrement. Pour les débutants en RPL je 
signale ici lusage de variables locales sans nom (gain 
d’octets et de rapidité). 

TIMED 

syntaxe : 


niveaux 2 3 … : les arguments éventuels 
niveau 1 : le programme ou son nom 
résultat : le temps d’exécution en sec. 


Voici le fichier source : 


RPL * mode rpl 

53 * début programme 

DUPTYPEIDNT? * niveau 1 : nom global ? 

IT XEORCL #* si oui RCL 

XHEM * MEM pour mettre de L'ordre 
* dans La mémoire 

MORDS1ZE * rappel de La Longueur des 
* entiers binaires 

SIXTYFOUR * system binary <64d> 


dostus * met à 64 La Longueur des 
entiers binaires 
€ NULLLAM NULLLAM 3* crée 2 variables Locales sans 


# 


* nom : 
* niveau 2 -> variable 2 
* niveau 1 -> variable 1 
BIND * crée L'environnement 
CLKTICKS * TICKS ( entier binaire ) 
* temps de départ 
2PUTLAM * temps de départ -> variable 2 
EVAL * exécute Le programme à tester 
CLKTICKS * temps après l'exécution 
2GETLAM * variable 2 -> temps de départ 
x- * différence entre Les 2 temps 
x * convertit La diff. en réel 
ASSEMBLE * mode assembleur 
con(5) #efee * réel 8192 pour convertir en 
* secondes 
RPL * mode rpl 
% * division de 2 réels 
* différence en secondes 
DOREAL * prologue réel 
ASSEMBLE #* mode assembleur 
nibhex 7990000000007530 
* réel 0.00375 pour tenir 
* compte du temps d'exécution 
* de ce qui n’est pas Le pro- 
* gramme proprement à tester 
RPL * mode rpl 
x- * différence entre 2 réels : 
* temps - 0.00375 s 
1GETLAM * variable 1 -> wordsize départ 
dostus * stocke wordsize 
ABND * abandonne L'environnement des 
* variables temporaires 
: * fin programme 


J'ai choisi le facteur d’ajustement de 0.00373 seconde 
pour trouver des résultats sensiblements égaux à ceux 
fournis par le programme TIMED de W.C. Wickes 
que le club anglais utilise pour les programmes à 
optimiser. 


Vous trouverez la liste des codes dans /e coin des 
codes. 


Bonne chasse aux millisecondes. 


Guy Toublanc (276) 














Y A QU'A ET RECIDIVE 


Lorsque j'ai créé la rubrique Assembleur, les outils du 
début nous étions dans la situation suivante : 


- Le club venait de reprendre ses activités après de 
longs moments de torpeur. Nous avions ainsi pris 
beaucoup de retard vis à vis de la HP-48. Entre temps 
des gens actifs hors club ont fait un bon bout de 
chemin et ont créé leurs bibliothèques. 


-P. Courbis et S. Lalande ont sorti leur ouvrage 
voyage au centre de la HP-48 fournissant ainsi un bon 
ensemble d’explications et de programmes. 


Alors fallait-il renoncer à publier des choses qui 
existaient ailleurs mais pouvaient être améliorées ou 
même présentées avec un minimum d’explications ? 


En effet les auteurs de bibliothèques ne dévoilent pas 
leur programmation qu’ils gardent secrète. 


Concernant l'ouvrage cité, s’il constitue encore le livre 
référence indispensable par la très riche 
documentation et les programmes qu’il fournit, il ne 
souffre pas moins de quelques faiblesses : 


Pratiquement, il ignore la programmation en system 
Rpl et de ce point de vue aurait besoin d’être 
actualisé. D'autre part certains programmes ne sont 
pas optimisés et comportent même des petites 
maladresses (sans aucun effet sur la fiabilité du 
résultat). La deuxième édition (sortie des presses en 
mars 92) que je n’ai pu voir qu’à Paris (on vend 
encore la première édition au Furet du nord, à Lille, 
qui se targue d’être la plus grande librairie du 
monde !), n’a que des corrections mineures du point 
de vue du fond et l'ajout d’explications sur les linked 
arrays. 


J'ajouterai qu’en général ce qui se crée à Paris hors 
club PPC n’atteint pas les provinciaux. 


Pour toutes ces raisons j'avais donc pensé que je 
pouvais lancer la rubrique assembleur comme je l'ai 
fait en faisant profiter les lecteurs de JPC de 
programmes actualisés, optimisés (on peut faire 
certainement encore mieux) et avec un minimum de 
commentaires. Mon objectif étant d'inciter le plus 
grand nombre possible de programmeurs à élargir 
cette rubrique. D’autre part l'existence de ces outils 
doit permettre à tous d'utiliser les mêmes 
programmes, portant les mêmes noms, avec la même 
syntaxe et ne pas être obligé lors d’une création de 
programme dans JPC de renvoyer à l'ouvrage X ou à 
la bibliothèque Y de Z. 








YAQU'A 


Si je réagis ainsi c’est qu’une réflexion, mettant en 
cause l'effort que j'ai fourni, m’est parvenue. Or les 
colonnes de JPC sont ouvertes à tous (même non 
adhérents) et ne demandent qu’à recevoir les travaux 
des auteurs les plus divers sur les sujets les plus divers 
pouvant profiter à tous. Mais je crois que pour 
certains leur travail est parfait parce qu’inexistant et 
qu’ils ont le beau rôle en critiquant ceux qui ont plus 
de courage et sont moins passifs. 


RECIDIVE 


Hors le programme CIRCLE, dont ma programmation 
est plus performante que celle de l’auteur de CIRCLE 
du livre de P.C et S.L, j'ai eu la réserve de ne pas 
établir de comparaison de mes programmes avec ceux 
de l'ouvrage cité, laissant ce soin aux lecteurs attentifs 
et soucieux du détail. 


J'avais promis de donner une version en assembleur 
du programme REV réalisé en system mpl (JPC 80). 
Aussi je profite de cet article pour présenter ce 
programme et mettre les points sur les "i du 
personnage blasé. 


Rappel: REV inverse l’ordre des caractères d’une 
chaîne. 


Re 


* REVERSE * REV * 
# (Courbis Lalande) * * 
ARR 
x 64.5 octets ë 60.5 octets # 
RIRE 
* accepte tout type  * n'accepte * 
* d'argument qu'il * qu'un argument * 
* transforme en chaîne * chaîne # 
* Re 
* * pour 10 caractères  * 
* * 5 fois plus rapide * 
* * pour 260 caractères * 
* * 


2.2 fois plus rapide * 


ARR 


* 92 octets * * 
ARR 
* doit appeler CHK * 
* (207 octets ) : 
“ainsi REVERSE n'accepte* 
* qu'un argument chaîne * 
* * pour 10 caractères 

* 2.3 fois plus rapide 

* pour 260 caractères * 
* * 1.45 fois plus rapide * 
ARR 


Mn x 


* 


* 
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Comme il est probable que ces programmes seront 
utilisés en général avec de petites chaînes mais 
souvent (exemple: un programme de désassemblage) 
je vous laisse tirer les conclusions. 


Je ne vais pas analyser, point par point, les différence 
entre REVERSE et REV mais lister la boucle qui fait 
l'essentiel du travail. 





REV REVERSE 
Loop 
181 do=d0- 2  * 
16F c=dati D * b 
144 b + b 
149 dati=a D * dati=e b 
14 datô=c b * datO=a b 
171 di=dit 2 * di=dit 2 
* do=do- 2 
* 133  adiex 
* 131  disa 
* 136  cddex 
# 134  do=c 
» 
CD decr b=b-1 a * BBA ?c=a a 
58E gonc Loop * FD goyes Loop 


Le principe de ces programmes est des plus simples 
et laisse peu de marge pour innover mais je pense que 
même dans ce cas REV mérite les colonnes de JPC 
pour ses différences et que les lecteurs que le sujet 
intéresse pourront aller plus loin dans l’analyse du 
fichier source ci-dessous. 


REV 
RPL 
cK1&Dispatch Cvérifie s'il ya) 
str bien 1 chaîne ) 
€ sur La pile ) 
DUPLENS € niveau 2 : chaîne ) 
€ niveau 1 : system ) 
€ bin.=long. chaîne ) 
CODE 
gosbvl  =POP# * ACA) := nombre car. 
* DROP 1 niveau 
gosbvl  =SAVPTR * sauve Les pointeurs 
ba a * nombre caractères 
asdati a 
disa 
disdi+ 10 + à Les données de La 
* chaîne 
cdîex 
di=e 


—————————— 


c=c+b a 
c=c+b a 
d0=c à après La chaîne 


* 
bsrb.f a * pour L'échange 
* symétrique des car. 
. 


gonc  decr saut -> compteur 
Loop 
d0=d0- 2 * actualise position 
* en fin de chaîne 
c=dati b * caract. début 
a=dat0 b * échange 
dati=a b * symétrique 
datO=c b * des caractères 
di=dit 2 * actualise position 
* en début de chaîne 
decr b=b-1 a * compteur d'échanges 
gonc Loop * boucle continue si 
* compteur >= 0 
goving =GETPTRLOOP  ( restaure Les ) 
€ pointeurs & retour) 
Ç au RPL ) 
ENDCODE 





Vous trouverez la liste des codes de REV dans le coin 
des codes. 


Conclusion : 


Si beaucoup de programmeurs ont une dette envers 
P. Courbis et S. Lalande, qui ont accompli un très 
gros travail en plus de leurs études et cela aux dépens 
de leur vacances certainement, ce n’est pas une raison 
pour ne plus rien faire. Le problème actuel de JPC, 
c'est la passivité de beaucoup de ses lecteurs, 
adhérents ou non du club. 


Guy Toublanc (276) 


ERRARE TOUBLANCUM EST 


Parmi mes articles parus depuis le n° 78, se sont 
glissées quelques erreurs ou maladresses : 


JPC 78 page 17. Ne pas tenir compte de : 
…l utilise le champ À du registre R4 pour les 


sauvegardes alors que ce champ est réservé pour gérer 
les interruptions. 














Cela est vrai pour la HP-71 et j'avais retrouvé cette 
affirmation chez un auteur américain. Or, en 
désassemblant des routines de la Rom HP-48, je me 
suis aperçu qu’il n’en était rien, ce qui est une très 
bonne chose pour le programmeur. 


JPC 80 page 13. Dans le listing du fichier source de 
PIL je suis passé, inutilement, deux fois en mode 
assembleur. Remplacer : 


ASSEMBLE 

con(5) #iccéb | par 20 
RPL | 
de même : 
ASSEMBLE | 

con(5) #2a2c9 | par #1 
RPL | 


Cela ne change rien au résultat après compilation et 
donc la liste des codes est identique. 


JPC 80 page 14. Le nota bene : 


le compilateur n'accepte les commentaires que pour les 
parties non RPL. 


est à remplacer par : 


le compilateur accepte, pour les parties RPL, les 
commentaires entre parenthèses. 


D'autre part en relisant mes articles dans JPC j'ai la 
désagréable surprise de voir ici et là des fautes 
orthographiques honteuses. Ces, étourderies sont 
souvent le résultat d’un manque de temps pour relire 
le texte ou de modifications partielles de phrases pour 
rendre le formatage par lignes de 50 caractères, 
moins disgracieux : 

( grands espaces entre les mots ). 


J'ai la maigre consolation de penser que ceci ne rend 
pas les articles incompréhensibles et qu’il vaut mieux 
cela que des pages blanches qui seront toujours 
orthographiquement irréprochables. 


Guy Toublanc (276) 





ESS 


\p 








JPC 82 Page 29 — 








Avant PPC PARIS... 





Dieu n'existe pas. 


Alors, qui nous a allumé ? 





nr CO 


se 
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HP-95 


J. Belin 


Du Saturn au 8086 (Acte III) 


32 
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DU SATURN AU 8086 
Acte III 


destiné plus particulièrement 
programmeurs sur HP-71. 


spécifiques au HP95. 


Basic précédemment cité. 


l'exécution sur un PC classique. 


Organigramme Général du programme 


Détection de fonctionnement sur HP95 
Si pas HP95 
Sortie du programme 
Lecture du contraste initial 
début de boucle 
Affichage 
Lecture du clavier 
Si touche ESC 
Sortie avec restauration du contraste initial 
Si touche ENTER 
Sortie avec conservation du nouveau contraste 
Si touche UP 
Augmentation de contraste d’un point 





Cet article constitue la troisième partie d’une série 
d'articles consacrée à lassembleur sur le HP95, 
aux anciens 


Après avoir discuté de la structure des programmes 
MS-DOS autour d’un exemple standard, nous allons 
aujourd’hui écrire un "vrai programme faisant appel 
à différentes fonctions standard du BIOS de l’'IBM 
PC (affichage, accès au clavier) ou d’autres 


Les anciens membres du club se souviennent 
peut-être que le tout premier programme HP-71 paru 
dans JPC (dans le numéro 13, pour être précis) 
permettait de contrôler interactivement le contraste 
de laffichage. Ce programme était écrit en Basic et 
utilisait la commande contrast du HP-71. Le HP95 
permet bien de règler le contraste à partir du SETUP 
quand le System Manager est activé, mais cela n’est 
pas possible à partir de la ligne de commande du 
DOS, car aucune commande n’est prévue à cet effet. 
Bien que certains utilitaires, tel 95.COM de Richard 
Harvey permettent de pallier ce problème, nous 
allons écrire la version en assembleur du programme 


Son principe sera de contrôler interactivement le 
contraste à l’aide des flèches verticales, puis le fixer 
grâce à la touche ENTER, ou abandonner tout 
changement grâce à la touche Esc. De plus, nous 
allons afficher les valeurs initiales et courantes du 
contraste. Bien sûr, ce programme utilisant des 
fonctions propres au HP95, il faudra en interdire 


Si touche DOWN 
Diminution du contraste d'un point 
Fin de boucle 


Ceci nest qu’un organigrame simplifié, vous 
permettant de comprendre le fonctionnement du 
programme. La version définitive sera légèrement 
différente, mais nous verrons cela plus tard. 


En attendant, nous allons étudier différentes 
fonctions qui nous seront utiles : la détection du 
HP95, l'affichage, la lecture du clavier et enfin le 
contôle du contraste. 


Détection du HP95 


Ayant déjà traité ce sujet dans JPC 76, je ne ferais que 
rapeller ici que nous utiliserons la fonction 4d, sous 
fonction d4 de l'interruption 15, qui retourne des 
valeurs prédéfinies pour le HP95. 


Affichage 


Afin de simplifier ce programme, nous utiliserons une 
méthode "brute", consistant à réafficher la totalité du 
texte, à l'aide de la fonction 9 du DOS (voir l’acte II). 
La mise à jour des valeurs affichées se fera en plaçant 
directement celles-ci (après conversion en caractères 
ASCII) dans la chaîne à afficher. 


Mais, afin d’avoir un affichage stable (qui le réaffiche 
à la même position de l'écran et non sur les lignes 
suivant le texte) nous devrons contrôler la position du 
texte affiché sur l'ecran. Pour cela, nous utiliserons les 
fonctiones du BIOS permettant de lire la position de 
curseur, puis de le repositionner. Une fois que nous 
avons affiché notre texte, le curseur se trouve sur la 
première colonne de la ligne suivant la fin du texte. Si 
nous soustrayons la longueur du texte au numéro de 
cette ligne, nous obtenons la position de départ du 
texte, et un réaffichage complet de ce texte (corrigé 
de la nouvelle valeur du contraste courant) paraitra 
inapercu. 


La fonction permettant de lire la position du curseur 
(en mode texte uniquement) porte le numéro 3 et est 
incluse dans l'interruption 10h du BIOS. Les 
paramètres d’entrée et de sortie sont les suivants : 


Entrée : 


AH =3 
BH = numéro de page 


Sortie : 


CH = Ligne de départ de l’aspect du curseur 
CL = Ligne de fin de l'aspect du curseur 
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DH = Ligne du curseur (0..24) 
DL = Colonne du curseur (0.79) 


Le paramètre placé en BH fait référence à la 
possiblité des cartes graphiques de gérer plusieurs 
pages de texte de 4000 octets (contenant le code des 
caractères ASCII affichés et leur attribut de couleur). 
Ceci permet, par exemple, de mettre à jour un écran 
sans modifier l'affichage courrant et basculer sur cet 
écran une fois cela fait, donnant l'impression d’une 
modification instantanée de l'affichage. Sur le HP95, 
les pages n'étant pas gérées (à ma connaissance), il 
faudra toujours utiliser la page 0, qui correspond à 
l'écran actif. 


Les valeurs retournées dans les registres CH et CL 
nous informent de l’aspect du curseur, c’est à dire son 
épaisseur. Si CH=7 et CL=6, le curseur a la forme 
de la classique barre de soulignement, si CH=7 et 
CL=0, il a la forme d’un pavé plein. Pour modifier 
laspect du curseur, on utilisera la fonction numéro 1 
de l'interruption 10h. 


Dans notre programme ce sont cependant les deux 
dernières valeurs qui nous intéressent. Nous n’aurons 
qu’à soustraire le contenu du registre DH d’une 
certaine valeur (8 pour notre exemple) grâce à 
l'instruction sub et réutiliser les mêmes registres pour 
repositioner le curseur grace à la fonction numéro 2, 
qui admet les paramètres suivants : 


Entrée : 
AH =3 
BH = numéro de page 
DH = Ligne du curseur (0.24) 
DL = Colonne du curseur (0..79) 
Sortie : 


Néant. 


Gestion du clavier 
Les fonctions gérant le clavier sont regroupées sous 
l'interruption 16h. Celle qui nous intéresse (la lecture 
d’une touche du clavier), porte le numéro 0 et admet 
les paramètres suivants : 
Entrée : 

AH=0 


Sortie : 


AX = Code du caractère. 


Le contenu du registre AX, en sortie, est de la forme 
sscc qui admet les deux cas suivants : 


- Si cc et égal à zéro, ss contient le code code d’une 
touche spéciale (UP, F1..). ASCII de la touche 
correspondante. 


- Si cc est différent de zéro, cc contient le code ASCII 
d’une touche normale (°°, , ENTER), et ss contient 
le code géographique de cette touche (le Scan Code). 


Pour plus de détails, vous pouvez vous reporter à mon 
article traitant de ce sujet dans JPC 77. 


Il est à noter que si vous ne désirez que savoir si une 
touche à été pressée et que vous ne désirez pas de 
temps d’attente, dans le cas d’un jeu vidéo par 
exemple, vous devrez utiliser la fonction numéro 1 de 
cette même interruption 16h, pour effectuer 
seulement un test de présence de touche en attente 
dans le buffer. Cette fonction admet les paramètres 
suivants : 


Entrée : 
AH=1 
Sortie : 
Si le flag Z (Zéro) est à 1, aucun caractère 
n’est présent dans le buffer. 
Si le flag Z est à zéro, un caractère est 
présent dans le buffer et 


AX = Code du caractère. 


Par exemple, vous pouvez tester l’état du flag de la 
façon suivante : 


boucle : sdébut de La boucle 


(affichage dynamique) 


mov ah,1 

int 16h iLecture état du clavier 

jz boucle ;si pas de touche en attente, 
; on boucle 

mov ah,0  ;sinon... 

int 16h ;-.0n Lit Le code de touche 


cmp  ah,4800h ;et on traite 


Notez que, dans le cas où une touche est présente 
dans le buffer, vous devrez obligatoirement utiliser la 
fonction 0, car la fonction 1 ne retire pas la touche du 
buffer. 
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Contrôle du contraste 


Seconde fonction spécifique au HP95 dans ce 
programme (et celle qui nous intéresse le plus), la 
fonction 47h de l'interruption 15h controle le 
contraste. Il existe deux fonctions permettant soit de 
lire le contraste courrant, soit le changer. 


Lecture du contraste : 


Entrée : 
AH = 47h 
AL=1 

Sortie : 


AL = Contraste courant 
Correction du contraste : 
Entrée : 


AH = 47h 
AL=0 
BX = Nouveau contraste 


Sortie : 
Aucune 
Ecriture du programme 


Maintenant que nous avons vu les differentes 
fonctions que nous utiliserons dans ce programme, 
nous pouvons commencer à l'écrire. 


Ceux qui ont suivi mon article précédent devraient 
reconnaitre sans peine les premières lignes qui nous 
permettrons de générer un programme .COM. 


Ensuite suivent les déclarations des codes de touches 
que nous utiliserons plus tard. 


La première chaine de caractère est destinée au 
message d'erreur à afficher en cas d’exécution du 
programme sur une machine autre que le HP95. 


La seconde contient le texte que nous afficherons au 
cours du programme. 


Les variables D_init et D_curr sont prévues pour 
pointer directement dans le texte. Ceci permet de 
mettre directement à jour (après conversion en 
ASCII) les valeurs des contrastes dans cette chaine. 
Ceci permet de faire la totalité de l’affichage (zones 
constantes et variables) en un seul appel système. 


D'autre par vous pourrez noter que pour créer des 
lignes vides entre les valeurs de contraste j'ai utilisé 
des séquences CR/LF/LF (13,10,10) et non CR/LF/CR/LF. 
Ceci est tout simplement dû au fait que je n’ai pas 
jugé utile d’effectuer un second retour chariot (CR), 
car le premier suffit. 


Après ces deux chaines de caractères, nous trouvons 
deux variables. La première contiendra la valeur 
initiale du contraste, que nous réutiliserons si nous 
voulons abandonner notre programme par la touche 
ESC. La seconde contiendra la valeur courante du 
contraste. 


Après un début d’exécution classique, nous testons si 
nous sommes bien sur un HP95. Dans le cas positif, 
nous continuons en lisant le contraste initial (en 
appelant le sous-programme rdcont) et en le 
stockant sous forme numérique dans les variables 
prévues à cet effet et sous forme de chaine de 
caractères (après appel du sous-programme de 
conversion) dans le corps de la chaine d’affichage. 


Après, l'affichage de la chaine de caractères, nous 
attendons la frappe d’une touche au clavier et nous 
préparons le code retourné pour la suite des 
opérations : 


Les codes de touches qui ont été définis par des 
directives Eau se rapportent au contenu directement 
retourné par le registre AX. Dans le cas des codes 
ASCII standard, le Scan Code peut ne pas être 
constant et poser des problèmes en cas de 
comparaisons de ces constantes avec le contenu du 
registre AX. C’est pour cela que, pour ces touches, 
loctet de poids fort de la constante est mis à zéro. 
Nous pourrons donc faire une comparaison saine en 
effacant le scan code (par un xor ah,ah) avant celle ci. 


Par rapport à la liste de touches parues dans JPC 77, 
il est possible de passer de l’un à l’autre de la façon 
suivante : 

- Si le code est inférieur à 256, il s’agit d’un code 
ASCII standard. Il suffira donc de le convertir en 
hexa décimal. 

- Si le code est supérieur à 256, il s’agit d’un code 
étendu et nous devrons le convertir en Hexa, puis 
prendre les deux quartets de poids faibles et les placer 
comme octet de poids ford de la constante. Par 
exemple, la touche F4 portant le code 318, la 
conversion en Hexa donne 13E, ce qui donnera la 
constante 3E00h. 


Si la touche que nous venons de frapper est 
RETURN ou ESC, nous sortons du programme (en 
replaçant le contraste initial dans le cas de ESC). 











Si la touche que nous venons de frapper est UP ou 
DOWN, nous modifions la variable contenant le 
contraste courant (en prenant soin de ne pas dépasser 
les valeurs limites), puis nous changeons le contraste. 


Ensuite, afin de conserver un affichage stable nous 
récupérons la position du curseur et nous le faisons 
remonter de 8 lignes (taille de notre texte). 


Juste avant de retourner à affichage, nous 
convertissons la nouvelle valeur du contraste en 
ASCII, afin d’avoir la bonne valeur dans AX, qui sera 
utilisé dans la première ligne de la boucle. 


Les deux sous-programmes suivants, permettent 
d’accéder aux fonctions de gestion du contraste. Dans 
les deux cas (en entrée ou en sortie), la valeur du 
contraste est placée en AL, ce qui est plus logique par 
rapport à la fonction 47h, qui utilise deux registres 
différents en entrée et en sortie pour la valeur du 
contraste. Notez que si vous voulez porter ce 
programme sur un autre ordinateur (je pense à toi 
Guy !), il ne faudra modifier que ces deux fonctions. 


La dernière fonction permet de convertir le contenu 
du registre AL en deux caractères ASCII dans le 
registre AX. Ceci est fait en utilisant l'instruction AAM 
qui peut effectuer une conversion BCD sur le contenu 
de AL vers AX. Par exemple, si nous avons OCh (12 
en décimal) dans AL, nous obtiendrons directement 
0102h dans AX. Nous pourrons additionner 3030h à 
ce registre, ce qui nous permettra d’y obtenir les 
caractères 12. Afin d’avoir un affichage plus 
agréable, nous replaçons, si nécessaire, le premier 
caractère 0’ par un espace. Enfin, nous échangeons 
les deux octets, car ce registre devant être écrit 
directement en mémoire, ceux ci y seront écrit dans 
lordre inverse de celui du registre (comme pour le 
HP71). 


Ces explications étant terminées, vous pouvez 
maintenant observer le listing complet. Vous pourrez 
trouver l’image du fichier compilé dans le Coin des 
Codes. 


DOSSEG 
code segment para ‘CODE’ 

assume cs:code 

ORG 100h 
start: jmp strt ;première inst. exécutée 
KESC EQU  0018h definition des codes de 
K_ENTER EQU 000Dh ; touches 
KLUP EQU  4800h 
KDOWN EQu  5000h 


Not_95 


Dispstr 
D_init 


D_eurr 


Cinit 
Ceurr 


strt: 


nok_95: 


ok_95: 


boucle: 


DB 
DB 


DB 
D8 
D8 
D8 
LE 
DB 
DB 
D8 


D8 
D8 


mov 


int 


call 


wait_key : 


ok: 


mov 
int 
cmp 
je 
xor 
cmp 
je 
cmp 
je 
cmp 
je 
cmp 
je 
imp 


cm 
je 





“This program runs only on an HP95LX" 
13,10,m$" 


"HP9SLX Contrast control", 13, 10,10 
“Initial contrast =" 

mxx",13, 10 
“Current contrast = 
sxx",13,10,10 
“Contrast : UP = +1 DOWN = -1 ",13,10 
MESC = Exit without Change",13,10 
MENTER = Exit with Change",13,10, 








e ;Contraste initial 
ea ;Contraste courant 

bx,cs snécessaire pour La 
ds,bx 3 fonction 09h 

ax,4ddéh  ;vérification d'exécution 
15h ; sur HP95 

bx, ‘HP! 

nok_95 

ch,1 

ok_95 :si hp95, on passe 
dx,OFFSET Not_95 

ah, 09h 

21h 

exit ;sortie du programme 

rd cont  ;acquisition contraste 


[C_init],al 
[C_curr],al 
htoa ;conversion en texte 
WORD PTR [D_init],ax ;sto dans texte 
WORD PTR [D_curr],ax 

dx,OFFSET Dispstr 


istockage dans variables 


ah,09h 

21h zaffichage du texte 
ah,0 

16h ilecture du clavier 
al,0 code étendu ? 

ok 

ah,ah jon efface Le scan code 
ax,K_ENTER ;touche ENTER ? 

exit ; oui, sortie 
ax,K_ESC  ;touche ESC ? 

c_esc ; oui, traitement ESC 
ax,K_UP touche UP ? 

c_up ; oui, traitement UP 
ax,K_DOWN  ;touche DOWN ? 

€_doun ; oui, traitement DOWN 
wait_key  jautres cas, on boucle 


BYTE PTR [C_curr],15 
isi contraste = 15, 
: pas d'incrémentation 


ovrflu 
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inc 
ovrflu: jmp 


c_doun: cmp 


redisp: mov 


c_esc: mov 
call 
exit: mov 
int 


rd_cont PROC 
mov 
int 
ret 

rd_cont ENDP 


st_cont PROC 
mov 
xor 
mov 
int 
ret 

st_cont ENDP 


htoa PROC 
aam 
add 
cmp 
jne 
mov 

htoa_1: xchg 
ret 

htoa  ENDP 


Code ends 
END 
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BYTE PTR [C_curr] ;incrémente contrast 
redisp 


BYTE PTR [C_curr,0 
redisp ;si contraste = 0, 

; pas de décrémentation 
BYTE PTR [C_curr] ;décrémente contrast 
al,[C_curr] ;lecture contraste 


st_cont correction contraste 
eh,03h ilecture position du 

3 curseur 
bh,0 
10h 
dh,8 scaleul Ligne début texte 
ah,2 srepositionnement curseur 
bh,0 
10h 
al, [C_curr] ;lecture contraste 
htoa ;conversion en texte 
boucle sretourne vers affichage 


al, IC_init] ;lecture contraste init. 
st_cont ;on remet tout en ordre 
ah,éch ;retour au DOS 

21h 


NEAR ilecture du contraste 
ax,6701h 
15h 


NEAR ;correction du contraste 
bl,al 
bh,bh 
ax,4700h 
15h 


NEAR conversion en ASCII 


ax,3030h 
ah,'0’ 
htoa_1 
ah," 
ah,al 


start ifin du programme 


Pour terminer, j’ajouterai que le programme compilé 
en .COM faisant moins de 512 octets (taille d’un 
secteur de disquette), il n’y a théoriquement que peu 
d'intérêt à l’optimiser. Cependant, j'avoue ne pas 
m'être beaucoup fatigué pour l'écrire et j'espère que 


vous trouverez là un bon exercice, en cherchant à 
faire une meilleure version, pour commencer à 
exploiter les quelques connaissances que j'ai déjà 
tenté de vous donner ! 


Jacques Belin (123) 


Ce 











LE COIN DES CODES 


La compilation de certains programmes, tels ceux 
écrits en assembleur, nécessitent souvent un logiciel 
que ne possèdent pas tous nos lecteurs. Le Coin des 
Codes permet de résoudre ce problème. 


Note importante : 


Même si la présentation des listings est identique, le 
traitement de ceux-ci est différente suivant le 
programme d’entrée et la machine de destination. 
Chaque listing est prévu pour être entré sur sa 
machine de destination. Par exemple, ne tentez pas 
d'entrer un programme HP48 dans un fichier 
MS-DOS à laide du programme Makeos. Vous 
obtiendrez un fichier que vous ne pourrez pas 
transférer dans la HP48. 


Programmes HP48 


Par rapport aux méthodes habituelles sur HP48, notre 
méthode effectuant un calcul local du checksum en 
fin de chaque ligne permet de faciliter la recherche 
d'erreurs, par rapport à une même recherche dans 
une chaîne de plusieurs centaines d’octets. 


Ceux qui n’ont pas encore de programme assembleur 
pourront procéder de la manière suivante: 


- par mesure de sécurité sauvegardez vos programmes 
et fichiers, éventuellement verrouillez vos cartes 
RAM pour devenir ROMSs. 

- tapez le programme ASsCoD. 


ASSCOD 


# 7B74h 
879.5 octets 


< RCLF HEX 64 STUS -2 SF 1 CF “ ’tmpcod' STO 
“nombre d'octets" "# INPUT OBJ+ 2 * 16 
DUP2 / 1P 3 ROLLD MOD DUP2 
1F 
THEN 1 + 
END 3 ROLLD 1 + 4 ROLL 
#Oh-+nrfs 
« 1 SWAP 
FOR i 
Do 
“Ligne “ 
MOO" i R-+B -STR 3 OVER SIZE 1 - 
SUB + DUP SIZE DUP 2 - SUAP SUB + DUP 
“ à chaîne commençant 
8 par — (neuline) 
" 8 chaîne commençant 


chaine" + 





____"@ par + (neuline) 
à et composée de 4 
à groupes de 4 
à CHR 95 obtenus par 
9 a shift bleu x 
à 1 espace séparant 
a 2 groupes 


ni< 
IF 
THEN 1 r SUB 
END + 1 FC?C 
IF 
THEN Ca} 
ELSE ROT 
END INPUT O OVER SIZE 1 SWAP 
FOR j OVER j DUP SUB NUM j * + 
NEXT s + DUP # FFFh AND "#" 
7 à "somme de controle" 
somme de controle @ précédée et suivie 
Lu à de + (neuline) 
à puis 3 CHR 95 
à (a shift bleu x) 
6 ROLL SWAP + € M @ } 
INPUT + OBJ+ == 
IF 
THEN 1 
ELSE DROP 1000 .5 BEEP 1 SF 0 
END 
UNTIL 
END /s’ STO ’tmpcod’ DUP RCL 
ROT + SWAP STO 
NEXT f STOF 
» 
tmpcod 
WHILE DUP “ # POS DUP 
REPEAT DUP2 1 SWAP 1 - SUB 3 ROLLD 1 + MAXR 
suB + 
END DROP 
"GROB 8 
OVER SIZE 2/""4+ 
+ SAP + STR+ 
# 4017h SYSEVAL 
# 56B6h SYSEVAL 
DROP NEWOB 





à si vous avez ASC+ 

à JPC 79 page 14 

à vous pouvez remplacer 
a ces Lignes 

à par ASC+ 

à (plus rapide) 


Donc à partir de maintenant pour tout assemblage de 
chaîne de codes procédez de manière suivante : 


1- lancez le programme AssCoD. 

2- donnez le nombre d’octets (1/2 oct. compris). 

3- tapez chaque ligne de codes avec un espace entre 
chaque groupe de 4 caractères. 

4- tapez la somme de contrôle. S’il y a erreur la ligne 
sera réaffichée pour correction après émission d’un 
BEEP. 
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5-stockez le programme assemblé dans la variable 
donnée en tête. 

6- si tout s’est bien déroulé vous pouvez purger tmpcod 
qui contient la chaîne de codes. 


Programmes MS-DOS 


Afin d’être utilisé par tous, ce programme est destiné 
à être écrit en Gw8ASIC. Il devrait cependant être facile 
de le convertir pour un autre programme (aasic, 
Turbo BASIC...). 


Mode d'emploi : 


1- Lancer le programme : GNBASIC MAKEDOS.BAS 

2- Entrer le nom du fichier destination. 

3- Entrer la taille du fichier. 

4- Entrer les listes de codes puis le checksum (en 
prenant soin d’entrer les codes héxadécimaux en 
majuscules). En cas d’erreur corriger la ligne, en 
prenant soin de placer le curseur après le dernier 
caractère avant de taper sur la touche d’entrée. 

5- Une fois que toutes les lignes sont entrées, sortir 
du GwBASIC en exécutant la commande system. Le 
nouveau programme est immédiatement disponible. 


Note : La taille du fichier résultant peut être 
supérieure d’un octet à ce qui est affiché dans le 
listing. Cela n’est pas un problème. 


Programme MAKEDOS.BAS 


10 INPUT “Nom du fichier : “,NOM$ : INPUT "Nombre d'octets : M,N : N=N*2 
20 OPEN NOMS FOR OUTPUT AS #1 : CLOSE #1 : KILL NOMS 

30 OPEN “bin.tmp" FOR OUTPUT AS #1 : : P$= 
40 NLINES=N\16 : LENLAST=(N MOD 16)+C(N MOD 16315) 

50 IF CN MOD 16)=0 THEN NLINES=NLINES-1 : LENLAST=LEN(PS) 
60 FOR X=0 TO NLINES 

70 IF X=NLINES THEN PS=LEFTS(PS, LENLAST) 
80 c$=P$ 

90 X2S=MO0MHHEXS(X) : PRINT RIGHTS(X2$,3); 
100 Y=CSRLIN : LOCATE Y,6 : PRINT CS; : LOCATE Y,6 : INPUT "#,C$ : Y=Y-1 

110  LOCATE Y,27 : PRINT sm = ---" : LOCATE Y,33 : INPUT "#,D$ 

120 M=S 

130 FOR Z=1 TO LEN(CS) 

140 IF MID$(CS,Z,1)<>" M THEN M=(M+((Z-(Z\5))*ASC(MIDS(CS,Z,1)))) MOD 4096 
150 NEXT Z 

160 D2$="O0"+HEXS(M) : D2S=RIGHTS(D2S,3) 

170 IF D2$<>D$ THEN PRINT "Erreur de somme" : BEEP : GOTO 90 

180 FOR Z=1 TO LEN(CS) STEP 2 

190 IF MID$(CS,2,1 "THEN Z=Z-1 : GOTO 230 

200 CH=ASC(MIDS(C$,Z,1))-48 : IF CH>9 THEN CH=CH-7 

210 CLEASC(MIDS(CS,2+1,1))-48 : IF CL>9 THEN CL=CL-7 

220 PRINT#1,CHR$((16*CH)+CL); 














230 NEXT2Z 
240 S=M 
250 NEXT X 


260 CLOSE #1 : NAME "bin.tmp" AS NOMS : END 
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FFACTS CHP48) O0C: OBA2 18BA 2479 A237 2E3 CONTRAST . COM CHS-DOS) 
# B80Fh 264 octets 00D: FA2A EC81 F316 12C2 09 397 octets 
00€: 30F6 E30C 1C16 33F0 E42 

0123 4567 89AB CDEF sm O0F: 6AEC 81CC D20E 0100 B92 0123 4567 89AB CDEF sm 
010: 8FD5 F30D EO6A F2D6 B47 
000: D9D2 OECE 819F F30D FDA 011: 10A8 FB97 6014 3131  74F 000: E9C9 0054 6869 7320 CIE 
001: 9020 8813 07D8 A283 D28 012: 1791 3310 1131 D210 294 001: 7072 6F67 7261 6D20 8EB 
002: 7A22 C230 D4FA 2FC7  CD7 013: 8E62 A155 1119 1341 E13 002: 7275 6E73 206F 6E6C 7DE 
003: A257 8302 C230 3392 8E8 014: 1807 D206 OSAF 0152  BOA 003: 7920 6F6E 2061 6E20 4E3 
004: 0400 0000 0000 0001 283 015: 111A AF18 2281 E832 84C 004: 4850 3935 4C58 ODOA  2A9 
005: 00A8 A208 536A 2170 F31 016: 50A7 8A74 BAEC EO7A 846 005: 2448 5039 354C 5820 F01 
006: 2AC8 1881 3058 CC11 C75 017: 7915 4116 AA92 8128 519 006: 436F 6E74 7261 7374 BB1 
007: 78A2 3991 6D9D 20C4  A98B 018: 1281 2812 8120 4CF5 248 007: 2063 6F6E 7472 6F6C  A9D 
008: EA28 B261 B213 0756 702 019: 688A ADO1 4411 OE41 EFB 008: ODOA OA49 6E69 7469 886 
009: 6098 C268 A056 EF9A 684 OA: 0011 ACE1 OABA ECB2 E65 009: 6160 2063 6F6E 7472 624 
O0A: 2188 A2CB 9A2D CC26  68E 018: 007C ED58 1ED7 119C D67 O0A: 6173 7420 3D20 5858 288 
008: 479A 2344 A2CB 9A29  53E 01C: 9134 0615 A015 F015 988 008: OD0A 4375 7272 656 FEC 
O0C: OBA2 18BA 2479 A237 2E1 01D: 9015 C017 0180 CF57 741 00C: 7420 636F 6E74 7261  CF1 
O0D: FA2A EC81 F316 12C2 098 O1E: E071 3509 1343 1031 2AA 00D: 7374 2030 2058 580D 9FC 
00E: 30F6 E30C 1C16 33F0 E40 O1F: 5F01 5C11 811C OCD5  0C0 O0E: OAOA 436F 6E74 7261 748 
00F: 6AEC 81CC D208 0100 B6C 020: FE8D 3415 0821 3082 D69 00F: 7374 203A 2020 5550 298 
010: 8FD5 F30D EO6A F2D6 B21 021: 130 E90 010: 203) 202B 3120 2020 D91 
011: 10A8 FB97 6014 3131 729 011: 444F 574E 203D 202D 823 
012: 1791 3310 1131 D210 26€ 012: 3120 ODOA 4553 4320 6DB 
013: 8E62 B155 1119 1341  DF2 REV CHP48) 013: 3D20 4578 6974 2077 32F 
014: 1807 D206 OSAF 0152 AE9 # 4FB0h 60.5 octets 014: 6974 686F 7574 2043 F88 
015: 111A AF18 2281 E832 828 015: 6861 6E67 650D OA45  D04 
016: 50A7 8A74 BAEC EO7A 825 0123 4567 89AB CDEF sm 016: 4E54 4552 203D 2045 8FF 
017: 7915 4116 BA92 8128 501 017: 7869 7420 7769 7468  5B5 
018: 1281 2812 O4CF 5988 341 000: D9D2 OECE 81D0 040D E38 018: 2043 6861 6E67 650D 341 
019: AADO 1441 10E4 1001 EAE 001: 9D20 8B72 6CCD 2015 C27 019: OA24 0000 8CCB 8EDB 382 
OA: 1ACE 10A8 AEF8 2007 CE 002: 0008 F146 608F B976 AGE O1A: B8D4 4DCD 1581 FB50 225 
018: CEDS 81ED 7119 C913 AC3 003: OD81 4313 1179 1371  5D3 018: 4875 0580 FDO01 740A F75 
O1C: 4061 5A01 5F01 5901  6c8 004: 3509 C913 4819 F154 313 01C: BA03 0184 O9CD 21E9 DE7 
010: 5C01 7018 OCF5 7E07 4BE 005: 1181 14F1 4A14 914C 069 01D: 8000 E881 002E A2CA  C80 
O1E: 135C 9134 3103 15F0 OEE 006: 171C DSBE 8D34 150B EC3 01E: 012E A2CB O1E8 8600 90F 
01F: 1501 1811 COCD 5FE8 096 007: 2130 8213 0 7C5 O1F: 2EA3 5601 2EA3 6D01 748 
020: D341 5082 1308 2130 C38 020: BA29 0184 O9CD 21B4 558 
021: O0CD 163C 0074 0232 120 
TIMED CHP48) 022: E43D OD00 7454 3D1B ECA 
FFACTSX CHP48) # 1C05h 78 octets 023: 0074 4830 0048 7407 AF7 
# 7561h 265.5 octets 024: 3D00 5074 12E8 EO2E 967 
0123 4567 89AB CDEF sm 025: 803E CB01 OF74 052€ 72C 
0123 4567 89AB CDEF sm 026: FE06 CB01 EBOE 902E 627 
000: D9D2 0530 26C8 9161  D01 027: 803E CB01 0074 052€ 310 
000: D9D2 OECE 819F F30D FDA 001: 8802 AAFO 2930 45AD  B50 028: FEOE C801 2EA0 CBO1 199 
001: 9020 8813 07D8 A283 D28 002: B46A AC35 47A2 003D 8EE 029: E829 0084 0387 O0CD F9B 
002: 7A22 C230 D&FA 2FC7  CD7 003: 4303 D43B 2130 OD47 5A6 O02A: 1080 EE08 B402 8700 C89 
003: A257 B302 C230 3392 8E8 004: 0188 EOOF 516E 8F60 40€ 028: CD10 2EA0 CB01 E81D B81 
004: 0500 0000 0000 0001 285 005: 18BE 07E3 1690 DAÏD 2E5 O2c: 00EB 992E AOCA O1E8  AAO 
005: O0A8 A20B 536A 2170 F33 006: 5345 EEFE OEF9 A233 23F 020: OA00 B44C CD21 8801 867 
006: 2AC8 1881 3058 CC11 C77 007: 9207 9900 0000 0007  CBB 02E: 47CD 15C3 BAD8 32FF  85D 
007: 7B8A2 3991 6D9D 20C4 A9D 008: 5301 89A2 6831 6AAC  BB1 02F: B800 47CD 15C3 D40A  6DE 
008: EA28 8261 B213 0756 704 009: 3579 4708 2130 BA2 030: 0530 3080 FC30 7502 31E 
009: 6098 C268 A056 EF9SA  6B6 031: 8420 86E0 C3 F36 
O0A: 218B A2CB SA2D CC26 690 
008: 479A 2344 A2CB 9A29 540 
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PPC PARIS Paris, le 16 Janvier 1993 
B.P. 604 

75028 Paris Cedex 01 

France 


Cher Ami, 


Nous avons bien reçu votre fiche d'inscription à notre réunion des 30 et 31 Janvier 1993 et vous 
remercions de votre venue. 


Vous trouverez joints à cette lettre divers documents vous permettant de trouver le lieu de 
réunion. 


En cas de problème, deux numéros de téléphone vous seront accessibles. Le premier 
(42 03 00 47) correspond au centre Jean Verdier, et sera accessible pendant les heures prévues 
pour la réunion (9h-19h les samedi et dimanche). En dehors de ces heures, vous pourrez tenter de 
me joindre à mon numéro personnel (42 37 72 67). Si je suis absent, vous pourrez laisser à 
message sur le répondeur, que j'interrogerais régulièrement. 


N'hésitez pas à nous contacter si vous avez besoin d'aide, par exemple pour transporter des objets 
lourds ou encombrants. 


Amicalement, 


Le président 
Jacques Belin, 


2 S: Pouvez ous 


ï Dmaene/ , Si Vous l'Svez enœre, votre 
cushe HP-IL > Syhfhese vocale? 


REUNION DU 10eme ANNIVERSAIRE DE PPC PARIS 


30-31 Janvier 1993 


Centre Culturel Jean Verdier 
11 rue de Lancry, Paris 10 


Programme non définitif 


(Autres présentations non encore confirmées) 


Samedi 30 Janvier : 
9h-10h : 
10h-13h : 


13h-14h : 
14h-16h : 
16h-16h30 : 


16h30-17h30 : 


17h30-19h : 
19h30-???? : 


Dimanche 31 Janvier : 


9h-13h : 


13h-14h : 
14h-15h30h : 


15h30-16h : 
16h-17h : 


17h-18h : 
18h-19h : 


Enregistrement des participants. 

Rondes 1 et 2 du tournoi de programmes. 

(en parallèle : présentations et réunions informelles, 

et stands éditeurs, distributeurs ei clubs). 

Pause déjeuner. 

Assemblée générale PPC Paris. 

Pause café 

Présentations en séance plénières : 

- Une carte vous permet de stocker jusquà 20 Mo sur votre 
HP95, par Leon Malmed (SunDisk Corp). 

- Nouveaux produits pour HP48 et HP95. Par Jacques Belin 

Présentations à préciser 


Banquet anniversaire. 


Rondes 3, 4 et 5 du tournoi de programmes 
(en parallèle : présentations et réunions informelles, 
stands distributeurs et clubs) 


Pause déjeuner 
Sessions parallèles de développement sur HP48 et HP95. 
Intervenants : Jacques Belin (HP95), 
Jean Francois Garnier ou Guy Toublanc (HP48) 
Pause Café 
Présentations en séance plénière : 
- Commande de train electrique avec une HP48, 
par Robert Pulluard. 
- Projection de la cassette vidéo “Corvallis Plant Tour" 
Table Ronde avec les personalités présentes. 


Remise des prix du tournoi et Pot d'adieu 


Note Importante : L'accès à l'assemblée Générale est libre et gratuit. 


Le Journal JPC est le bulletin de liaison entre les 
membres de l'Association "PPC Paris”, régie par la loi 
de 1901 et indépendante de tout constructeur ou 
société commerciale. Le Club est éditeur de JPC, et 
son siège social est au 56, rue Jean-Jacques Rousseau, 
75001 Paris. 


La maquette de ce numéro a été préparée et réalisée 
par Jacques Belin et Asdin Aoufi. 


Les dessins sont de Jean-Jacques Dhénin et Paul 
Courbis. 


Les informations et programmes parus dans ce 
journal sont publiées "Tels quels" et ne peuvent en 
aucun Cas engager la responsabilité de 
Hewlett-Packard ou de PPC Paris. Hewlett-Packard 
se réserve le droit de ne pas répondre aux questions 
concernant le sujet de certains articles. 


Les programmes publiés peuvent être utilisés 
librement. Cependant, ils ne peuvent être vendus ou 
fournis dans un ensemble commercialisé, sous 
quelque forme que ce soit, sans l’accord écrit de 
l’auteur ou de PPC Paris. 


Directeur de la publication : Jacques Belin 
Numéro ISSN : 0762 - 381X 


Veuillez adresser toute correspondance à : 
PPC Paris, BP 604, 75028 Paris Cedex 01. 





